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ABSTRACT 


Tne maintenance Of consistency in a distriputed aatacase 
System environment presents a number of vexing croolems to 
the dataoase system aesigner. Tnis 1S more so tne case «nen 
tne datavasé system contains Teplicated gata ana is also 
agesiqneae to provide a nigh decree of aValiapility uneer 
conaitions of network partitioning. 

Sioetiesi immestigates tne Use of 4 proposed aadaartive 
concurrency control algorithin aS a fossiole alternative 
Solution for a number or the pronlems facing the ddtanase 
system Gesmgme@em an the areas of concurrency controi, 


Partitionea networks, and longelivecd transactions, 





Il, 


LV. 


TABLE OF CONTENTS 


PU MOEEU UU CrisQUMMMGIQiseletsie So ce ces snes cat ceucceces eave 
PREVIOUS WORK ON THESIS SUBJECT MTA se =e 6 6 6 8 
MO CD Cyl UN Metstgins se se se ete eee eee en eae ene 
eet CUPP CURROL sec c ee tees eee ees eneene 
Se en ACEO er PONTING 6 oe ceecteececesecesecee 
oe CMcmmeeeceecome SCOLUCLTONS esescececnecasece 
DEM PCM GLELELON SOLULLONS ci ec cece ene 
Reeth VE IT RAGMOACTIUNG seccsesseenesenrces 
TRANSACTION MODEL AND The PRUPOSED AUGORiGHw . 
Deewecer let TON SOR SIE TRANSACITIGN MUDcEL wecece 
Be. TRANSACTION EAECUTLON EXAMPLE ceccccceeces 
EAGT eMSLONS TU Tae PRCPOSLD ALGURITHM eceeereece 
Romo eo LR aAmOACIT LOWS «seca cece cece eens 
TOME enSatumamtranSaction ADDrOaCN e«eec 
2. A more General APEFOACN sevenveeeseces 

3. Temporary Versions and LongeLivea 
TEANSACLIONS eevee neveacccrceererecces 

ae Temsorary Versions ana tne Domino 
EELCCT wececevceneevnevecerreneesesecne 
Se CONCLUSION zceoccsecscnerccrcesesscrecr 
Ce EeUR RP ARTEL IONING -« ,cscec ce cece eeeneeee 
ae elec LONed FrOCceSSING ,eccrcsccesvene 
weerecurrerents Fer Concurrent Execution 


3. Solving [ne Mutual Consistency Proolem 


ia 
11 
sy 
i+ 


14 


si 
SZ 


oS 


39 


s) 
38 
4 0 


te. 





4, Partitions Create Lona=Lived 


Transactions #eeeaeeeeng+eeesee54085eseaeee8ee s 


hs SIMULATION AND TESTING MEPTHOCUOLOGY eeons 


A. 


Be 


De 


INTRODUCTION eeeeeveaaneepeeeeetsteevevesenn 
DATA STRUCTURES @eeeeeeegeeaevevneve teeter vaeesr 
fee Transactions eeeeeteopeeeeveeveveeanveeve_n 


Pome COmmrLCe HISTOPTLeGS sieics eee ee wee 


3; Data GCojects ee... Se... 


Sree) a COmmOrNG © POM AT Yemeteeisiels © 6 0 6 «6 ews 
SUMO EAL LONE EXECUTION «oe cc ccc een ceee 
ie opecifying the Test environment 
Pear gore tonm Simtlation Execution . 


TESTING SCENARLOS @eeeae5485oe«eeeegeose@teseseeg¢ae##5oeve8@ 8s 


veal TEST RESULTS @ee@@e@eenre@eeseceeseeaoesgs84sse4egeeseee#ee#e@e#8?e@ 


A. 


De 


C. 


VD. 


TRAMOACTION STREAM INPUT Jsccevcecae 
TiMesQuUT PARAMETEX ®eeeeveanueeeseeveaeeee 
THE 20 PARAMETER eseeeeveev4uaeeevee eevee 


CONCURRENCY CONTROL UVERHEAD weeeees 


Wei. CONCLUSIONS e@eeeeseeesee@eseseseeeeeeenteaeeweenweee1e @ 


APPENOIA A CPRUPUSED ALGORITHM) senccceceveces 


APPeNDIK B (SIMULATION SOURCE CODE) Coc ecencens 


APPENDIX C (SAMPLE SIMULATION GUTrUT) eeeerees 


LIST OF REFERENCES Pr ee ee ee re er rr rr rr 


INITIAL DISTRIBUTION LIST cuoccesrnccccceccccene 


4% 3 
4 3 
4S 


50 


eo 
2+ 


2112) 





Wet OD UE. LON 


A fundamental concept for catavase systems is tne notion 
of consistency. ff 4a databese is viewed as a set of Gata 
opjects whicn are related in some way, and tt tnese 
BolAtteogehipsmeare viewed as assertions about the omjects, 
then a database {s consideregqd consistent only it ee 
Satisfles all integrity assertions, Transactions which 
enter tne database system ana read or alter tne values 2n 
data oojects are said to move tne datavase trom one 
GOneomseent state to anotner. Thus, the transactions, 
Cem@erisea Of &€ Set of atomic ections are consiaerea units of 
Consistency. Since the transaction’s atomic actions cannot 
execute at precisely tne same instant in time, the dat3oase 
can pecome temporarily inconsistent. HODeOVET  (CONGUrTeEeNt 
execution can cause tne dataoase to secome inconsistent, 
Tnerefore, to insure database consistency, a concurrency 
control mechanism 1s required. 

Tne main task for a concurrency control mecnanlism 1S to 
insure the serializability of transaction execution. if all 
of the transactions in a databaSe System were to execute 
Serially, that is one rignt after another, consistency would 
be insured as no transaction could intervene in anotner’s 
execution CyiGre's Tf Sse Oume=transactions execute 


GComeunnenmtiy ana tne result of that execution 18S equivalent 





Beomcivee result oObtelimned Erom some Seaquential execution or tne 
Sememseit Of transactions, the execution is saia ts ce 
mem icimedble {13., Serializable execution of transactions is 
sufficient to insure consistency in a database system. Any 
execution sequence which cannot be serializea must not oe 
allowed, 

Tne mechanism for concurrency control we investigate 1s 
Se Proposed sedarptive concurrency control algorithm pasea on 
an optimistic strategy for insuring datapase consistency, 
Badal (2,3). A transaction scneme emoloying suptransacticns 
with related atomic actions crovides tne transaction mocael 
for the algoritnnm,. Tne proposed algorithm 1s provided in 
Appendix &, 

Fore ae distrinutecd databaSe System, Ene ‘partitioned 
BETCWOrK e@hnvironment introduces some dcitficult problems. A 
network partition occurs wnen two Onn more Grusjolnt 
coliections of nodes cannot communicate between tnemselves 
SEvVeneemouGchn moces in @ given Subset of tne netsorKx are 
operational, mica eecatabase sesystenm “which eroviaes some 
pecmcemocmayvatlqoiiity in the face of network partitioning, 
Cnis situation can completely destroy mutual consistency. 
Doeseoecuet, MOSGMSOLUCIONS to tnis proolem oroviae a less 
than desiraple degree of data avellabdility »nile operating 
in tne partitioned mode. Secause we consider avallapility 
of data just as inportant as consistency for 4 aistriputesa 


System, and since tne prcposed algoritnm proviaes varyine 





egies Oe availability #hile maintaining mUTUSEL 
Samoesotemey, we €xtend the dlgoritnm to achieve a selutic.r 
for the broolem OL tne Pertitionéed network and analyze its 
Moeeuemess aS a possiple sclution to tnat proolen. 

Tne transaction concept, which nas gained whae 
acceptance in such areas aS airline reServations, electronic 
PeoGmenamsters ana Car rental applications, does not in 
itself place any limitations on tne duration of transactions 
Bide eyorenisn If this regard, there are some interestinae 
Parallels petween tne notion of a longelived transactlon as 
introduced sy Gray (4] and the notion of temrorary cata 
states whicn is contained in the sroposal tor tne acaptive 
Concurrency control algoritnm. [ne parallels oacome Nore 
Duemoumeea. once the algorithm is conSiageredad in tne context 
of a concurrency control mecnanism operating unaer networx 
Pemereroning, We amalyze tnis situation in this tnesis with 
the hope of snedaing some liagnt on tne subject, 

Chapter 2 is a summary of metnods previously oroposed as 
possipnle solutions to tne aforementioned proclams cealina 
with tne maintenance of consistency in a database system. 
Cater mins roguces tne transection moqel and tne prooosed 
algoritnm, In cnapter 4 we extena tne algoritam to the 
network partition environment and aiscuss its application to 
longelived transactions, In cnapters 5 and ©» we croviae an 
implementation of tne algoritnm as well as test results cor 


Gaipserent scenarios, CAG e £or various Classes Of 





Maemisiaecul Ons, GLELering degrees of conflict rates, alttrerenct 


complexities of noneserializaole execution, etc, 
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Wee Peevrovio WORK IN THESIS SUBJECT AREAS 
A. INTRODUCTION 


In this chapter we discuss some prior protosalis «anicn 
Dave ceem introcucec as possible solutions to the proslems 
of concurrency control, network partitioning, ana Long-lived 
Meeamoeaecelons. In looking at concurrency control we are 
Particularly interested in metnoas wnicn, wnile insuring 4 
consistent adatapnase, could also easily acapt to the ever 
changing database environment. an tnis Eegara, se 
discovered tnat chere waS a paucity or metnoas wnicn 
Pmovrdgecramy SLGNIifi¢Ceant measure of tlexTbility for either 
the datarnase designer or tne database user, 

wnile anélyzing metnods for c@aling with SareLelouec 
network environments we are most interesteaq in soliutions 
whicn allow for non=stoo operation in all Darel tloms =arter 
Metwork partition. Yhree solutions in tnis area provea most 
attractive and crovided some insignt towaras the extension 
of tne proposea algoritnm to tne partitioned environment. 

At present, very little Aas been written aoout tne 
long-lived transaction problem in aataodase systems. se 
Eepemecome s~>resecnt Some thougnts on thea™subject oy Gray 4) 
and make an attempt to analyze these concepts in Lion Ger 


tne proposed aligoritnm. 


ees 





Bee PCeNCURRENCY CONTROL 


Two phase locking requires a4 transaction to acquire 4a 
lock on every data cbject 1t will access vefore any of tne 
locxs are released, [nis reduces the availasility of tne 
Gata opnpjects aS Some of the data onjects locked by tne 
transaction could have peer open to reads or upeates while 
tne transaction sas executing at other data onojects. his 
metnod also has an aaverse effect on tne level of concurrent 
execution which is experiencea py tne transaction. Unis 1s 
true because no portion of tne transaction, nowever aisjuint 
it mav pe trom other components of the transaction, is 
allowed to execute in the system until every cata ooject Ils 
locked. However, wnen tworpnase Locking 15 comoined wltn 4 
tTwosonase Comm1t policy such that commit occurs at tne ene 
Sree coansecelion executlon, a simole recovery metnhoa for 
Eramsactions is provided, 

Yime stamps provice a second strategy tor concurrency 
control in a aistriputed database system. Under tais 
Strategy, transactions are regquirec to execute in tne oraer 
Sceeedieaneeclme Stamps. Ffime Stames, in conjunction witn 4 
Cwoepnase comm1t solicy, can ce almost a5 restrictive aS tne 
twoepnase locking scheme in regaras to data opject 
availability ana concurrency of transaction executlon. 
Moreover, tne lack of global system Knowleage at network 


partition provides tne tine stamp solution witn nigntmarisn 
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PeooLems at merge time as consideration must be Given Go tne 
aifferences in time stamp assignment among all tne comouters 
in the system, wteither twoepnase locking nor tine stamos 
Provide a general solution to tne longeliveaq transacticn 
problem as neitner provides a mechnénism wnicn can make a 
aistinction between data whicn is permanent anaq data «#nicn 
is temporary, 

A Strategy for concurrency control wnhicn Seems tO 02 
Sermiuma ih SCPpUlarity is called optimistic cecdause it freely 
allows transactions to execute within tne system ang insures 
that tne resultsS Ot execution are Serializable at tne sata 
Sbpyect itselr. hilsomscehLatecy 2S  ssased. on the assurection 
Bieemmecnecmcomcntcr fate 4t a4 Given data opject is low cecause 
tne portion of tne catacase accessed at any one Cine oy tne 
atomic action of a transaction is small, 1.€., tne locx 
Qranularity is small, Uslman (5). Since it naS seen Snow 
Picwmeeiesany re2al=lire arOlications tne prooapility of 
Somelict is low, several procosdals for Cecinristie 
SomeGurmencyescONtrOl Maeve been published. For a centralizec 
database, Kung and Rooinson nave proposed a Solution tol. 
This approach was elacoratea on by Ceri ana twicKxi C/) and 
applied to a aistripnuted datanase systen, padal Lon 
descriped a different approach utilizing ean alidgoritnm 


intended for use in a GiStpecute@aesvacem., ££ 1S this iest 
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Seproach, ¢€xtenaeac by Sagal ana Y“crlyea [5] waicn «4 
invesitgate for partitioned network execution ana lLonc-livecd 


transactions, 
C.. NETWORK FARTIITIONING 
1. oN we artaecL1on sour ions 


Tnere are numerous solutions allowing one partition 
operation in the event the network experiences particioning. 
Since these SOlUELONS Feschnec availapllity ate an 
unecceptable degree, we spena littie tine on thelr analysis. 

Examples of these methods are +: voting, toKen 
Passing and primary sites. In voting eacn site is assignea 
a weignt or numoer of votes. when a partition occurs, tne 
Sites in the partition witn tne most votes are tne sites 
which can process transactions witn the least restrictions. 
Sites MimeoemcmemcortitiOnS Can process féad-only tye? 
MaanisaGeloms. #15 token passing each aata onjyect nes 4 
Foren ~aesociated with it @#hich moves from site to Site, 
Moeheaewedaumelon OGCCUrS, tne Site with tne token for a aata 
ooject may update that cata ooject. Primary sites is an 
approacn where eacn data object nas a site assignean cto it 
Wcnmmeromecesponsible for a datd Object”’s activities. At 
Peamrereromeeine, Lf @ transection is executed in a partition 


tnat contains alli tne data objects in 1€sS read and write 


a 





Sets, the ex@cution is alilowed. Utnerwise, only rat 
operations are permitted, 

macn strategy attempts to make tne upaatina ot aata 
Srepects  Site=specitiec accordinges to 4a set of rules and 
constraints, Since the methods restrict activity (usually 
updates) in some partitions, data availapility is aecreasea, 
Consistency preservation varies trom metnoco te metnoa. In 
Mefmewng, consistency is easy to maintain witn a nign cost in 
aVailabliity as only the partition with tne most votes can 
perform update operations on data objects. This aeqree of 
Preservation iS not the caSe a*itn the oepriniary sices 
Strateqy, anich is similar to tne token petnod, 4S the 
Primary site for updates could be involved in a nard crasna 
and an alternate site 15 aeSsignatea aS a backup, uver all, 
Peemecntmuncestamethnods fall short ot @ general solution to 
the desirability of achieving a reasonaole balance voetween 
insuring consistency tn a aatabase and osroviding a nign 


degree of availacility at all sites. 


La MUP eeewrartition solutions 


Meproa@cnes to tnes Ssartitioning oroclem nave »yeen 
Suggested wherepy consistency is maintained Byrougnou.. cre 
System and increased availanility is crovicea at any Given 
Savcie. 


Parker ana Ramos (9) prosose a metnoad wnlcn woula 


utilize a logetilter and version vector scneme to aetect 


i> 





fiery ple rile joint consistency, Ti eSmmProoOsal sacqresses 


tne automatic detection of TMUCGUEGiernCONSLTStencies at tse 


Us 


, 


reemecwe, ana ateuhe Partition meraqe interface. tc = Gexeys 
Nowever, rely on user intervention during processing to 
decide on 4 course of action once certain types of conflicts 
are detected. In aadition, tnis approacn allows tor some 
low level of inconsistency to exist in tne file system for 
Snort periods of time after a transaction nas in fact 
committea, 

An approach involving semantic Knowleage about tne 
Gdatapase applications was proposea vy Faissol (10]. rive 
Classes of semantics spanning tne most simple operation to 
the most complex are usea to allow vodates in Inaepencent 
partitions, f&aen cléss snares a common merge aigoritnm 
which can be tallored to a particular appiication cy tne 
application pregrammer. At present, of tne oropvoeses 
Somiciomsm CO che partitioning proolé@™, Failssol’s approacn 
Seems to ne tne most interesting ana complete, Ke does, 
however, assume that a concurrency control mechanisin exists 
Smo Chmeam ihsure consistency in each indivicual partition 
during periods of network partition, [ne mest attractive 
feature in tne droposal is tnat users may operate tne system 
under partitioning 1n 4 manner anicn assures reconciliation 
can ce performed automaticaliy at merge time, 

Reem@cnoag £Or allitomati¢c control of censistency and 


datapese aata opnject reconciliation whi¢e¢n relies on tne 


lo 





manipulation of precedence graphs is proposea in ob5resani 
oO Me ae In this approach, use is mace of Faissol’s rort7él 
derinition of correct partitionea mode operation. Ffartition 
100s are utilized to store information necessary ror use oy 
@a partition merge algorithr. Transaction activity is stored 
in these logs ahicn, at merge time, are convertea into 
precedence graphs. Tnese gragns are inspecteq to insure 
that a resultant glottal schedule of transaction execution 15 
serializable for all partitions. 

with tnese papers as cacKxgrouna, in cnapter & wa 
investigate our proposed adartive concurrency control 
algoritnm as a possisle canaidate ror the concurrency 
control mecnanism, during normal system oceration, swnilé tne 
system is partitioned, ana 4at partition merge tite. n@ SO 
tnis investigation in tne nopes thet 1t may srovice what 
seems, to Of a2 more general solution to tne networks 


Sarerc1oni.ng proolem, 
Ds LONG@#=LIVED TRKANSACTIONS 


Gray (4) introduces transactions wolcn can persist in a 
Bsiee@immrcore Long ceriocs Of time cvetore they commit. Inese 
transactions may nave lifetimes tnaf can be measured in cays 
or weeks, For instance, applications sucn as travel, 
insurance and escrow commonly nave transactions znose 
durations span sucn time frames. Gray envisayes solutions 


to longelivea transaction Situation as naving bo, accect = a 
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lower degree of consistency within the datanpase, we 100K CO 
an extension of tne preposead algoritnn as a possiosle 
concurrency control mechanism ror Longeiived transactions, 
Tnis mecnanism snoula not require tne acceptance of a 


ower aegqree of consistency in the nandling of tnese types 


oe transactions. 
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Tlf, TRANSACTIUN MOCOEL ANO THE PROPOSED ALGUARIIAH 
Ba CeoCRIPIIUN UF THE TRANSACTIUN MUDEL 


THIS section descrives the transaction model, tne 
COMPONENTS eye tne GOncurrency —CONntrol meenanish .ahe 
transection execution under concurrency control. 

Mach se mansaceiOn CNters ang exits tne alstriourced systen 
at one site, calleq tne initiating site. It 15 ccmposea ct 
Pmemoremore atomic actions each of wnich performs eltner a 
read or an update on a sirgle date osject. Interaeoenaent 
atomic actions are groupec into SuoTransactions. fae 
SUptransactions may execute concurrently or sSequential.y. 

Mast trel1ctebistcory is asGC€art er €acn transaction curing 
ic Ss execution. This hes co rv is a record or tne 
Cransection’s conflicts witn otner transactions. Gomer l Lec 
msn cesunec as occurring whenever two Cransactions execute 
eny combination of read or ufaate of tne same data ooject 
except read-redad. ine GOnrlite. “Mesetory fs upcatec altn 
information neld at eé@ach dGata eojeCGa VIsSitea by tne 
transaction. This information is neida in a log (DO Log). 
The DO Log holds the recora of a4 transaction’s activity 
against the aata Opnject along witn date from tne 
Cransaction’s conflict nistory. [he vO og, wnicn operates 


aw fashions wnich is Similar to tnat of a stack, 18S updated 


la 





whenever the transaction accesses the aata ooject. Pie (Ws 
Log also indicates tne transacti¢n’s status as temcorary, 
committedaq or aportea, A committed entry aenotes a comtittes 
transaction, 1.@e one whose initiating site nas aetermined 
Smee execution cycle to ve complete for all Of ts 
Suptransactions. If a transaction 1s in contiict with an 
emeny imethe log wnich is not committea, it marks 1ts entry 
as temporary walting (t(w)}. wnen all previous temporary 
Versions (verslons generatedq vy OCLHGEm Cransactlons) ~ a¢e 
Sommuncted, a t€Cransaction’s Cemborary version, (t(4), 15 
changed to reacy to commit (t(r))., For tne case were a 
transaction nas tO acort, any transactions wnicn nave 
Cemporary versions based On tnat transaction also must 
aoort, 

During transaction execution, a local COmecurTrency 
Controller, resident at eacn site and executing a copy of 
tne adaptive concurrency control alqgoritnin, utilizes tne 
information contained in tne transaction”’s conflict Alstory 
and tne contents of tne UO Log to aetect ana resolve noa-~ 
serializatle Cx@qeuCiOime at Cach Site. fne concurrency 
contwol mecnanism constructs a precedence Cekeatvion kero ine 
information in tne DU Log ane tne confiict history. A non 
Serlalizaple execution oecurs when a transection appears in 
more than one olace in tne relation, «nen noneseriallzable 


execution is detected, tne coneurrency control mecnanisn 


elle |restore serializable execution vid a rolloecx ana 


nN 
7) 





HeeeeaGition process which may involve one or more of tne 
transactions present Mimeaneen precedence. relation. ine 
restoration of serializable execution can oe accompiisned 
utilizing a metric indicating tne amount of "work" oerrormes 
py the transaction, 

wnen a transaction attempts to read or update a4 aata 
Osject at a given site, it may or may not fine the onoject 
locked oy anotner transaction. If the opject is net leocked, 
the transaction executes on it. however, snouvuld 4a lock pe 
encountered, the transaction waits for 4 Sreceterminea 
perrioc of time, 1f tne previous transaction releases tne 
Moermmoecere tne Cime-out feriod expires, execution -*iil 
momeerme . With the Lock ‘still being oresent arter time-out, 
the transaction attempting to accesS tne object sencs 4 
Mirena ctory tO its initiating site, and indicates 1t is 
mocmecmat the site, It will then sé up to tne initiating 
Setemmeconcurrency controller to proceea with tne transaction 
execution. 

Once a transaction is allowedq access to a@ data ooject, 
men oekS that Object and begins 1ts execution, Snould tnis 
Emamecececlonmeoe in conflict, it may elect to nold its iock on 
the data ooject until tne previous temporary version eltner 
Commits Or aborts, or the transaction may release tne lack 
after creating 40S own temporary version, Dew tAe erOrmere is 
me case, the snort duration lock onecomes a lonq duration 


bec amamene Concurrency control algorithm switcnes £rom tne 


a 





optimistic mode to tne pessimistic moae, Phe meu oer - or 
temporary versions Tie cmeoveOeEOuoltld Up atiaa mata oclect 
Can be adjusted to meet vyariscus application criterias ana 
storage tecnnologies, ea U>)6 CULENeEN|h[UCLENeE 6©6COCcaAMLOOr 1 eAM 
functions similar to twoerpnase locking witn crosonase 
Sommat. FOr higher n, the algoritnm allows a areater decree 
Of concurrency. 

TvO points snoulda be noted nere, Tne rirst is that anen 
Gee VU, a déeaaqlocx detection procesS will ce required ana 
Secondly, wnen nis nign, a domino etfect can occur whereov 
€@ll transactions wnose temsoorary Versions are oase@a On an 
aborted transaction’s temporary version must tnemselves 
abort. 

To illustrate in more detail now tne algorithm performs 
feemeaomcurrency cComtrol functions, a view 1S takxen of tne 
transaction as a carrier of information. The 2panaee elon 
Gemmres Ltseccontlict history from Site to site ana if a 
Cransaction FORKS to execite Suotransactions concurrently, 
eacn transaction carries a cosy of tne conflict nistory witn 
te cmedacn site, the transection attemots to detect ana 
resolve noneserializable execucion ana ain the srocess, 1Ct 
updates its own conflict nistory wnicn 18 depesitedqd at tne 
Site in tne data opject’s DO LOG, when tne transaction 
COMmMomeceGmLts Work, if returns to its initieting site. ANY 
Comcummencty @x@CUEInGg subtransactlions JUIN .as tney move 


Bouem@ucsmeen@nminitiating site ana tnelr conflict histories are 
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merged, PangGe a ‘transaction  €x1ts the system, it ust 
ensure if has generatea only serfaliZasle execution curing 
its journey tUnrough tne system and only tnen may it commit 
all of its temporary versions. 

At the initiating site tne Cransaction’s entire conflict 
history, accumulated during its execution througn tne 
System, is inspected, Peeene CONtlLIGCtheMwstoOry WS emoey, che 
Cransaction is ready to commit and 1t w1ll so notify eacn 
Site wnere it nas temporary versions. SnouLa 3) “COnMti ice 
history centain entries, the transaction senas a copy of its 
Somerrsce fistGoOry to tne initiating site of eacn transaction 
eee ca = 1m tne history, The Cransaction tnat sent its 
Somritce GMistory to other sites tnen invokes tne initiatina 
meee se GORGUrTeNncy controller. A precedence rélation is 
moucecruccead -rOm the concatenation of Chis ¢conf£lTct history 
ang any conflict nistories receivea trom otner transactions. 
me «FiO fenmescertalizapie exveocuwe Lon sigs GeLCeG ed, the 
transaction witli sepa its preceacence relation to the 
Initiating site of whichever transaction it last added t9 
mts weorececence relation. Dies =wehecess. GCOntinues “Until 
either non=serializaple execution is detected or until the 
transaction receives a preceaence relation wnich oniy 
duplicates relations currently neld. In the latter case, 
Chiemecaisrectionmers ready to commit and it will be necessary 
tor tne transaction to oroadcast a commit message CO e2acn 


Site wnere the transaction nes temporary versions. 
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fog tne case wnere noneSerlalizaole Seer on 


t- 
wu 


indicated, Serializasie execution 18 restored in tne san 


id 


Manner as before, witn consiaeration given to tne economic 
Pectors invoived in restoration. Unce non=serilalizeole 
execution iS no longer a Possinility £0m a Given 
meansaction, the transaction enters 1tsS commit pnase «ahere 
it will commit all of its temporary versions. Tnis onase is 
Complete wnen all the temporary versions on «sanicn the 
transaction nas casea its temporary versions have committer 
ana the transaction’s status is markea commit at all tne 
data opjects visited, 

Considering the case where the initiating site nas 
meceived a confiict nistory from a suotransaction wnich nas 
been olocked cut of a data opject ang nas experiencéaq 4 
Pine-Oute condition, tne initiating site takes tne same 
actions tnat it woula nave taken ir tne ransactlon naa 
SoipmeecedestcS COUrse and returned to the initiating s1te. 
In this situation, any restoration reauirea snould ailow 
tnis transaction to execute last oecause if it ala not, tne 
transaction may create Tore non=serializable execution after 
wes toration, 

Tne advantages of tne proposed algoritnm can pe 


Summarizea as follows: 


ue xpemecimere is no conflict, 1t functions wlth minimum 


overnead, Tnere are fewer messages reguired to commit a 
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meeemeadctiOon chougn it must be pointed out tnat ee 
MeatiGrion iS achieveaq at the cost of Losing site autorony 
por "a Longer perioc of time, 

wean 6Cl ee Tease)§6LM ™CoONcurrency may oe aCimrs Ved oy 
allowing transactions to access resultS generatea from otner 
transactions not yet committed. Tne algoritny is consiaered 
optimistic in tnat it iS aSsumeaq that tnose "not yet 
Sommiccedq”™ transactions will eventueliy commit, {iie- Gas 
coes not cccur, the amount of Work whicn must pe unaone can 
be limited by @ locKing mechanism. 

3. The algoritnm can switcn oetween oessimistic (usina 
long duration locks) and optimistic (using snort duration 


locks) modes at any time and for any data onject. nus, 


b- 
~- 
om 


the same gatapnase, nign contention riles can overate im the 
Dessimmstic mode ana low contention rilies in tne ontinistic 
mod@. = all vweing controllea oy the tne same concurrency 


SComerel aigorictnm:. 
Steen oaGL LUN EXECUTION EXAMPLE 


for this examole we assume tnat each cata oojyect 
accessed by a tCransaction 15 located at 4 aitferent site 
Meenine snes arstriouted system. Data ooject ta} Wi Piece 
located at Site A, aata onject io)? at Site Bb, and so tortn. 
Furthermore, assume tnat a relatively low gaegree Oye 


concurrency is desirea and thus tne algorithm will switecn 





from Secimistic to pessimistic modes anen éacn 
Buvtimioace1On encounters {tS first conflict, 1.e., n= i. 

bet transaction Tl enter the system at Site 4, Yi 
consists of only one suptransaction wnicn first executes et 
Site C, imeemen transits to Site 8 where it, wucon 
inspection of the applicable UU Loy, detects a conrlict itn 
transaction Tz, Tl executes on that data oojyect ana nolas a 
lock on it aS it returns to its initiating site, site A. 
Mees COMmeLict nistory contains only Y2 at aata Go 7eecr © ale 
Memescr ic retlecting tne amount of Wworx aone oy obetn 
Subtransactions up to the point in time of tnelr reaching 
data object o,. Be vuaele form LOr Ere “COMEILLCE Nistory 
entry, and the one usea in this exarecle, foe SU Veh dic sls : 
weeti ss © $s J}. 

Transaction [2 enters the system at Site PD, it a159 
consists of only one subtransaction which first executes at 
Site 3, tnen moves to Site F, lt tnere GiScover ss Eiaitwlt 135 
in conflict with transaction Ts, it executes on data ooject 
£, updates its conflict history to incluge iT3l2 : £ 7 Rr, 
nolas the locx on df}, and then transits to site C. At site 
C it encounters a lock wnich {is néela by Ts, deer Ww al CI ng: ia 
Eomemoulceeceriodg, I2 f£inas tne lock still oresent. It seéncs 
a message to its initiating site containing its conflict 
history and the fact that it is blocked at Site CC. fé will 
Seecmrcomcomelict nistory with a “+" to indicate tnat 1t 15 


Steel: executina. Neoware les tees ee at 
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Transaction T3 enters the system at Site E and consists 
Seer SUDtransactions: ST3i and ST32. ST3i transits to 
eer, oe XECULES Chere, and then returns to 1ts initiating 
Site, Site £, Suotransaction of32 moves from Site n to site 
C to execute tnere, After ootaining tne lock ana checking 
tne DO Log entry, Dios LscOVelS Lidt lt 15 2h comelicu wats 
transaction Tl. ST32 will execute at data ooject c anc Keen 
hes lock as it aroOmOvVCSMOSCCK Ono lce it ,. 6S LHe paeine 
site, “hen ST31 ana sST32 JJUIlM, they will inerge their 
Bewe@mare. COonNtiict nisteries to form t3°s contlict nistory. 
ceaceeoial S TS "€mpty ana eil3Z°s consists of 11 st data 
Ooject c¢ Cassume the metric to ve 11) T3°sS conriict history 
Reelemeaee rs. t1it3 $ € $ {1}. 

wnen all of a transaction’s Suotransactions nave 
Meruemede to cheir imitiating site either tne transecobon 
will ce able to enter its commit pnase or i1t will o8 
necessary for it to invoke the Ste ssereonecue reNnGcyY sconerol ler 
Momerdem=eco getecy anc resolve Cossiole noneserlallzeoie 
execution, Since in our example eacn transaction nas a 
noneempty conflict history, the initiating site Hust attempt 
to aetect non-serializaole execution. Eacn transaction wiil 
omoamamcopyece LES Conilict history to tne initiating site 


PemPeemmerensaccion in ts cenfglict hnistory. 
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Bacn transaction will comstruct a precedence relation 
maGtmeene) GCOncatenation of {tts conflict nistory witn any 
Semratoce Nistory it nas received from otner transactions. 

Tl 3 ae 7) 8 VR eae = ea 
J eo et ee one - Oe E 


Tega: Vis Zot. £ 
2 igi sD : 7} 
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pEececcoence relation Will reveal the presence of 
Serfalizaple execution 1f, once a transaction has received 4 
Somerree History whien it nea received oreviousiy, it 1S not 
aomenw tO detect noneserilalizabdle execution. nat 1s 22 2G 
adding a relation to its preceaence relation a transection 
adds only auplicate conflicts, and if amonast ali tne 
Conflicts present in its oreceaence relation no cycles Can 
Be detected, then that transaction’s execution sequence is 
Sserializaole, Transactions will continue to oass tneir 
Sommer saestories to the initiating site of wnicnever 
Crameactwon Was last eaaded to its contlict naistory, until 
eitner noneseriaillzable execution is detected or the 
Freceaence relation can detect serializable execution, as 


above. since, in our example, we n”aave not yet reacned 
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either otf these conditions, it is necessary to sass tne 
precedence Freiations whicn have accumulatea up to tnis reint 
in time. Tney will be passed as foliows: 

WL Gee eS Se 

[2 se"=> 21 


T3 see > a2 


Eacn transaction constructs a new precedence reisaticn 


from the relations it receives: 


os ee fe Was Oe oe 
ae (ed Ae ae ae oo a | 
aie Se a 
sy 1 es ram as ©, ee aed 1) 
Tye & (ee 2 os. of ote 
1075 Re 4) 
ohh <i 
13.02 Coeie. 4+} 
Psag A i Ge ee one-one a 
Be) a a eae 
SEOs Vga oleae 
al oe Comrs 1 1} 


Fach transaction can now cetect tnat noneserializaole 
Sxeumeon NMasgocclrred since a transaction is Llistea in fore 
Sramemomemlocdtson. Since T2 is still executina, 1 1s sest 
omeesesoclvVe §~tee conflicts In a way wnich will allow Iz to 
execute last. (If none of tne transactions are still 
executing then the least cost transaction pair woulc oe 
rolled sack to break the cycle). This means that be re 
tne transaction pair wnich must pe rew-executeqa at aata 


ooject o in oraer to resolve tne nonw=serializaple executicn. 
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ineeecdinas i2 FOll back to Site 5, vi executes and returns to 
mescmraeciacing Sit@ witn an empty conflict nistory and is 
able Co commit. wnen I1 commits, T3 will change tae ou Los 
entry at data object ¢c to tr), rejease its lock on 4c}, ana 
commit. After Ti has rewexecuted at {b>}, T2 w111 oe anole to 
Tewexecute at ib}, at d£}, and at (Gia Ac peaCnedatd Sojece 
T2 will acquire a lock, execute, ana mark its versions as 
MmmrewOrecir) Gepending on how long it taxes fT} ana pie Ss 
Commit, 

Commit will occur in tne tollowing manner, OnGe 2c he 
Syerto ts crokem, [1 will be returning to its initiating site 
with an empty contiict history ana ali of its versions 
marked t(r),. Ti preadcasts a nessage to all of its sites 
telling them to commit their DU Log entries, AS soon as ii 
commits, I3 wlll release the lock that it is nolaing at site 
C and send a2 message to its initiating Site saying tnat its 
temporary version at Site C is ready to commit. as tnis 1s 
the only t(w) version that T3 was waiting for, i3 can now 
bDroaacast a commit message to all its sites. at tn1is point, 
Eaagmeaacutom ©2°S temporary versions Nall nave tneir 
Semmes omemcmanged tO EC{rj, tne locks neld by f2Z will ce 
released, and messages will be Sent to Tz2°s initiating site 
indicating that the sites are ready to commit. Lastly, 12 


Will oroadcast a commit message to tnose sites. 
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ween enateme FO The PROPUSED ALGURITS* 
A. LUNG*LIVED TRANSACTIGNS 


The usefulness of tne transaction GOncepe in 
applications sucn as electronic fund transters, airline 
Besenmvacrorms and Caf rentals nas pecone evident in tne past 
few years, The traditional transaction mocel for tnese 
applications assumes that the transactions are snort livec 
meee, ney are Cransactions of Short duration. however, the 
Senceoc “‘*transaction” does not tin itself tmoly any 


Mmemcation On Cn@ lifespan of ene transaction in a system. 


2 


Bemvouvaeseem wnat a HOre® general concert of a Cransectisc 
would not impose any time limit on tne auration of the 
poansact lon. In fact, there are many applications sucn as 
escrow, travel, insurance, legal proceealings, etC., wnicn cy 
myorrenacure Tregcuire transactions #nicn can last f£0r a 1ona 
Cime. Gray (4) cails ¢tnis ClaSS Oc eraeMSeeCEIOns Lona=i1iveca. 
W@o willl attempt to snow now the transaction model ana tire 
adaptive concurrency control mecnanism presented in l#j 7a4y 


Bens radceplicaorm to tne oroblem of SuUpOOG CinG lona=livea 


transactions. Tnis proolem is also adaressed in (2,3). 


ay 





yee Compensating transaction Approach 


In a conventional transaction environment, wnen tne 
effects or a committed transaction must pe altered, a 
compensating transaction is run to back the value out. inis 
metnod is not general in tnat it only applies to commutative 
operations and it 185 somewnat aeceptive in that tne user nes 
PecimuetmeeOmmctievye tnoet tre Value or tne data object, vrior 
to compensation, was permanent wnen in fact it was Aot. 
Moreover, Gener Users may nave made aecisions cased on tne 
gata ooject value with tne understanaing tnat tne value = may 
pe permenent, Waece cach OL CHESe USe€rs Mave Seen cealing 
witn {3S tne outcome of a longelived Cransaction ana not 4 
permanent qata opject value, tt may ce true tnat 
individuals wno work in this environment are aware or tne 
Pitfalls of maxing cecisions in tnese situations and act 
accordingly. sut, we pelieve that tne system should rsroviade 
a vehicle whereby the user can be mace explicitiy aware that 
tne data value he is aealing with is Temeorarye 
Adaitionally, tne comoensating method itselt May not ce 
generaliy applicaple, Inis may pe secause different parties 
wno are affected or involved in the longelived transaction 
seem to nave ditfering viewS as to «nat constitutes 4a 
transaction, For example, from Gray l4], in a reservations 
Soemanrlvorectme Customer thinks of Chis wnole scenario as a 


Single transaction. Ine agent Views tne £ine structure of 
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tne scenario, treatina each step as an action, Ine airlines 
and hotels see only indiviuual actions out view tnenr es 
transactions, THiS example taxes Lt clear tnat actions TAY 


pe transactions at tne next lower level of abcstraction." 


ie A More General Approach 


{ft seems tnat organizations whicn aeal witn the 
applicaticns listeq asove view tnelr transactions «itn 
customers aS separate actions even thougn eacn action huset 
pe accomplisnea to satisfy the customer’s request. some of 
tnese actions, are longelived, Using tne reservations 
example, it seems tnat the transaction involvea NaS CHO 
levelS of atomicity; one ceéling w1itn tne generation of 
temporary data and tne otner sitn Commitsent (Ore eOoOr Clon} 
Of the data, It 1S tnis property w#hicn leads us to velleve 
that a mechanism snould ce provided tao tne dataoase user 
tnat can make the nature of the aata more explicitiy «Known, 
in tnis regarc, tne user requires that two cholces ce mace 
availaple to nim cy tne system : a) the ability tor the user 
to be made aware of the temporary nature of tne data ooject 
and/or 0) a capaoility sucn tnat tne user can be presented 
wito the illusion tnat tne temporary data is fFerzvanent wnenr, 
in fact, it is not, Wothing we see in tne compensating 
transaction scheme allows tor cnoices such as tnese. Anotner 
conceptualization of this ca Ts comune Ww ONG Cemoorary date 


as conditional data which becomes true only wnen tne 


She 








momgeiivec transaction commits. For example, tie Grant 2c 
of a loan to an applicant is a temporary state for an escrow 
Meocess 45 it 1S predicated on all ot the conditions ot tne 
escrow oeing satistieu, The loan is executed (committed) 
only if tne conaitions are met; otnerwise it 18S canceled 


(aborted), 


3. Temporary versions and LongeLived Transactions 


Maemecmasddpuive Concurrency control alcoritnm 1s 
eaoea "Om Cemporary versions of aatla oojects ans ctemecorary 
states for aata, one Can expece tnat tne proposec acaptive 
concurrency control mechanism can naturally supsfort the 
execution of longelivea transactions. [nis expectation 15 
Seecammom che fact {nat the algoritnm treats long-lived 
Eramedclieons if the same Manner 4S Shortelivead transactions. 
This manner of treatment 18S ovoossible as potn types of 
transactions generate temporary versions; tne only 
weerenemee ta,chat long-livea versions ate more cersistent. 
Peete oc, seven thougn longelived transactions seem {Co 
generate mostly temporary data, Chey provide no aaditionai 
Comolexity tor tne concurrency control mecnanisn. 

The transaction model ana tne temporary versions 
introduced in tne croposed algorithm provide the preperties 
we deem necessary for tne user’s more meade se Sve Ch Cee iis 
Gam sadateit2), Our reasons for coming to tnis conclusion 


are EWOLOLd, Ber st, the suotransaction scneme nas tad 
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Hemers of atomicity. One dealS wlth tne generatl1on or 
temporary data and tne second aeals with tne commitnent or 
Meoreton Of all tne Suptransaction’s temporary versions. 
Phis £1ts nicely witn our conception ot the two levels of 
atomicity displayed py long-lived transactions (for a given 
transaction, ali temporary data actions nave to occur ana 
all temoorary aata eitner pecomeS permanent of aports). 
secondly, tne use of tiine Stamos for temporary versions ana 
their permanent storage would allow tne concurrency control 
mecnanism to supoort queries using time rererences sucn 45 
"wnat were the values of data onoject x at crime ct". This, or 
Sollesceym~ems a Mateer Gependent on apolication reauirements 


and available storage technologies, 


waeercmecomary Versions ano tne Comino catrect 


cuece Mem in=theversicneot a data opject 1S “ereatéed 
by updating tne (iel)etn version, ana since the i-th version 
cannot commit until all versions it 1s paSea on commit, tne 
possibility exists for a domino erfect when a transacticn 
aporcts, This is true pecause when tne the Ketn version of 4 
data onject is arortedc all j versions, j>k, must also apbcrt. 

Problems whicn may be posed by the domino erreect sean 
be minimized because tne efrect can ce limited py the user 
varying the number of cooles of the tCemporary versions 
€allowed to exist at a data object at any one time, eee ay 


Vewaying the valwe of "n", moreover, tne comino effect in 





Orr scheme and the compensation transaction in the 
Somventciongl syStem are in tact tne same thing tron tne 
user’s viewpoint. botn result in tne user losing the vole 
of the data object which was current in the user’s view of 
the database, However, it Should oe noted tnaét the crorosea 
adaptive concurrency control mecnanism itselt is intenaécs to 
minimize interference among transactions. This is aue to 
tne mecnanism’s detection of noneserlalizaple execution on 
eme smallest pesstoile granularity i.e., the accessed record 
field. This will decrease ana possiply eliminate all 
conflicts among transactions. 

Tt may be fossiole to minimize tne domino effect tor 
the bproposeaq aigoritnhm througn tne application or two 
metnods, The “#irst methoa would capitalize on ehis 
commutapble nature ole most types OG data in tne 
Geeremencioneq application arees, TnNis woulea allow versions 
Peccomeclmeait es aeOrced version to remain active after sore 
acceptaple aajustment to the data object values. ‘the use of 
Sse coW@ery E2lGorltnm basegd on the Semantics of tne data 1s 
the otner method which coula help to abrogate any orimaryv 
concerns aoouvut the eftect of multiple temporary versions 
peing aported. TInis scneme is closely associatea with tne 
Particular type of application the OoMS 1s servicing 5ecause 
Semantic considerations are directed to the meaning or tne 
qdata, An example, from Falissol ([1u], will aemonstrate tne 


semantic constraints wnich may apply to a aata orject: ina 
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Sreaqit=debit environment, “money is conserved", i.,e., every 
credit to one account must be matcnead to a cdenlt to sone 
other account, To fa2eilitate tnese Kinds cf ‘s6e%anctic 
considerations, the ODsMS must oe aple to provide tne 
application programmer with a vehicle for construction of 
semanticebased algorithms whicn can oe arfplleag to tne 


Cemoorary versions resident at & given aata ooject, 


5. Conclusion 


The provosed ODL ings cre Concurtoucy CODE OL 
algorithm seems to have an innate saollity for nanaling 
iongelived transactions. sdecause the algoritnm can provice 
Mouwene Us@r amore realistic view otf temporary daataranile 
proviading a nicn level of consistency, we oelleve its 
Peecosmmon to the proplem of longelived transactions mignt se 


pessiole, 


B. NaTwORK PARTITIONING 

A distributed database system nas tne potential 
advantages of greater déta avallability end reliaasllity 
Since cata oojects may de reglicateq ana nence accesseac at 
several sites EME OUGH OU tne system, If, nowever, 
Consistency among copies of the data is more important tnan 
avallability, Titi one copies mignt not provide any 
improvement in availaoility,. Witn consistency as tne 


Primary concern tne system would either oe NOLlding locks cn 
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data objects to prevent inconsistencies from arising cr 


i— 
ct 


would be spending a large amount of time aqetectingd ana 
resolving inconsistencies, Eitner ot these acticns woulsa 
getract from data availability. 

Mutual consistency requires chat it all upaate activity 
mere tO cease, after some period cf time all covoles of the 
Same data will converge to the same value. inere are 
numerous Known algorithms for maintaining mutual consistency 
during operation of a aistriouted dataoase, Og pl Sy ee 
These algoritnms don’t, however, aeal with tne aadeqa 
SemolLexities which arise when tne network pecomes 
partitioned, A Minetworn Cartieion occursmwhen to oF more 
Gisjoint subsets of sites in tne nétworkK can not excnange 
messages tnrougnh the network even tnougn some or all of tinen 


are operational, 


1. Partitioned rrocessing 

Cawem that @ system iS Partitioned there are tnree 
Geareer ent general approacnes to nanaling transacticn 
processing, witn each tnere 15 a tradaeeotf cetween tne 
level Gemmodee ws availadililty ana tne amount of .ezrort 
necessary to restore systemewide consistency once nne 
partition ceases to exist = as avallaoility is increasea so 
is the amount of effort required for restoration Of 


consistency, 
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a. halt Processing 
WNeGweeOsstoility is to halt all transaction 
PRpecesSing until tne network is completely reconnected. 
This iS one extreme whereby aata avallability goes to zero 
and no need exists to restore consistency upon system merge 
(due to tne partition). 
Pe eemeno LCE UR xe cut ion 
poaeswWstal SOlution is to allow only sites witnin 
a cnosen partition to process transactions tnat uraate cata 
objects, all sites still nave tne Capability ofr acceoting 
meecsonly transactions, though tne ddta reda will ecossiziy 
pe out of date. Tnis solution certainly allows Some c«egree 
Pomegtiswiabartity, though at 4 cost ot tne overhead necessary 
Momconrect arising inconsistencies. any inconsistencies 
Which ago adeveloo, however, are tairly single to resolve 
Suen System reconciliation. Tre resolution nay pe 
accompiisned oy merely propagating any Updated data objects, 
trom the one and only site wnicn waS alloweq tO maxe 
Upaates, to all otner sites «nere that gata is reolicated. 
Gemcomcurrent Executtlon 
Another solution wouijd oe to continue operating 
all Swaeeame in Carallel" auring tne partition ana to 
reconcile the databases at ocartition merge. Ir woula oe 
wortnanile to nave all sartitions in operation (allowing 
cotn read and upcate cadability) if availacility of gata 15 


more important chan wtmaintaining its consistency, provided 
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omer CONLLICES™ petyeen copies or qaata can always oe 
automatically reconciled wnen COunTuUnIcCatlonsee ale te- 


established, 


Miesedierements For Concurrent Execution 
If sites within disjoint oartitions ore ~altloweag to 
continue operating, there are three general requirements 
wnich must be satisiied {n order for 4a system to pe viaole,. 
a, incegrity Constraints 
Abeer ey consitreints must not be violates. fre 
SWo components of integrity constraints described in Falisscl 
C10} aré operational coastraintS and Semantic constraints. 
Operational Genstraints wnicn M1IgGNt Peo le in 
inconsistencies in any Given fFartition »ill be hnanalec oy 
Sur ew Goncurrency control mecnanisn. SeHaANnLLEe i Coms i barat s 
Presens in @acn earticion of a partitioned network needa Aot 
Spescereomerom the constraints preS@€nt wnen tne networx {is 
comoletely connected. 
Ii, nowever, tne semantic constraints sSresent 
Beem  tme Networx is completely cennecteac are correctlv 
modified LO retiect SeFCTatlion ina Partitioned environment, 
En@meayaeem reconciliation can, in some cases, be mace a 
trivial process. That is, if sufficient senantic Knowledge 
is usea, tne transaction secnedulesS produced in eacn 
Partition may oe made inderendent. If Site A 1s particicned 


from Si ce B and the partition’s transactions are 
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miaceengent, Che reconciliation procesS may oroceec es 
MenlOwss olte s°s transactions could ne executex on topo of 
Site A°S to fbroduce aata orject valves at Site A anicn could 
then pe taken to have the meorrect" values. ‘snese new 
values would simply be passed to site gc and instaiiea at tne 
replicated data objects. 

semantic constraints cresent wnen the netvork 15 
Gompletely connected must necesSarlly 3e modifilea to 4llow 
Pedates witnin Gadisjoint partitions. Consiaer an airiine 
reservation system and a specific tlldgnt witn 20U Seats. itt 
is opvious that lf tne reservation system were to partition, 
meeeewoumcde NOt ©& teasible to allow tne reservation or 20y 
seats within each fartition. sefiantic Knowleage tiignt 
Gictate tnat each partition has control over reservations 
for halt of the seats. Certainly tne necessary semantic 
modification fOr tne particionea environment wili oe 
applicetion aeoenaent, Also eyually certain is tne fact 
that in any relatively large system 1C voula be imposSiole 
to produce a comelete set of semantic constraints whic¢cn 
would oe capabie of nanoling all possible partitions. se 
therefore see tnis semantic apoproacn to ECONner Our 
reconciliation ate teing SOL Stimlteqd ~UsSeftuiness ana 4s 
certainly not being able to nandle reconciliation in the 


most general case, 
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DapeecomerOl ExXternal Action 

tzmerMeal actions must ce controlleéam These sre 
none=recoveraole actions (e.g. a discersed payment). 3¢ecause 
of the independent processing nacure of eacn Partition, tne 
Proplem of external actions is coiplex, Gwey da catcdoc 
Manager most likely will restrict external actions ashen 
eeperatingd under Partitions, possioly oy allowing only cnosen 
Sites to execute transactions net easily reversea, 

Cc. Restore Mutual Consistency 

Upon ieClimita@tleon orf tne Bbartweion, mutual 
fegseaauency anong replicated uata oonjyects must oe restored. 
meowaemerene USE OL tne concurrency control mecnanism tne 
internal consistency of any one partition can oe preserved, 
Howaver, since tnere is no communication setween tne 
partitions, the transactions executing in eacn partition aay 
cause tne values of data objects renlicateqd in aifrerent 
Pemrtitions to aiverge. This divergence destroys mutual 
Consistency ana results in a database no longer meeting its 
assertions once tne opartition is mergea, AS ciscussead 
above, semantic constraints may ne utilizeq in a limitec 
number of applications to acnieve Ene requried 
Becomes tation, Discussing a general Solution to tne mutual 


consistency problem is the primary goal of this section. 
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3. Solving The mutual Consistency Proplen 

Ppeeonmaere tO ascertain the correctness oar tne 
approacn to 6@ presented in tnis section we must heave an 
understanding of what correct operation un a oartitiones 
environment consists Of, Weevil iFconslaer frst ah faes 
wnhicn is presented in Faissol 110), 

If S 18 a scnedule composea of transactions navina 
PRIPCOCoCGmesltmMin wo disjoint partitions, «e are concerned 
witn determining a scChedule equivalent to some serial 
execution or S&S, it need not necessarily be a scneacule 
Seauivelent €O S. It snoula be understood that tnis concept 
of scnedule equivalence mignt not produce the same results 
aS would be obtainea from a connected network (aque tc tne 
concurrency weenie wemave Ce Gdlitterent, “correct” sets “o£ 
Mesults)}, Sut this will cause no proolem if serializarllity 
momeenemcricerila [Or correct system operation, 

Our approach tor nanaling mutual consistency taKkes 
SaeetOuLow.ng TOrm. After a parflition occurs, transactions 
within each partition will continue Co execute against their 
data oojects, some of which are replicated in at least one 
other partition, WAtnin each Partition, at a site 
designated the control site, a Partition Log is createc. 
Snasewogeemiid fave information accumujated in if about every 
EeeamisdicG@eitom s activities "within tne sfartition. Tt will 
EOntatmetmMrormeciton about activity against eacn agata ooject 


sucht as transactioneIUs, read and write sets of tne 
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Epeansaction, contlict histories, and tne old ana new values 
of tne cata object. The necessary information wili 02 
memeectead by G€ach transaction as 1t passes tnrougcn tne 
system, Ints intormation will be DasseQero dijaestorca ia 
mae Fartition Log in tne order in wnich transactions nave 
finisned execution. lf a transaction whicn nas completed 
Mmesmexw@cuclton 1S rollec back by the concurrency controller 
in orger to meintain serializaole execution witnina tne 
Percicionm, tCRen it*will be necessary to remove tne relleéed 
Peck trahsactson°s data from tne partition tog. This will 
meoeemnes COCAl Ordering of the transactions for a4 given 
partition. 

At partition reconnect time, activity will ne 
@€allowed to continue only for transactions which nad alreaay 
pegun execution, it is necessary tirst to credte a4 static 
environment Emrougnpout tne system sucn tnat no new 
PoeafisdcselOms are ailowed to enter aiid all oia ones have 
completec executil1on. 

Tne reconciliation process pegins by usina tne aata 
Sogieatmedesim €ach Partition Log to create a serial schecule 
HOT that Damrrelon, olmce Ehe Scnecdule contained within any 
one ParGitrion Log resulted from execution insured 
serializable by tne partition’s concurrency controller, tne 
Serial schedule produced is guaranteed to be cycle free, 

Meri ece Ss  MecesSsary LO Construce a global 


Sree@aqence relation utilizing eotnh tne serial scnedules 
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which have been produced and information contained itn eacn 
martetcion Log. Once the giooal relation is constructed it 
Memmecesoadry CoO inspect it for ¢ycles, lf tne reiation is 
acyciic then the transactions Containeaqa witnin are 
Serflalizaple (Davidson (15] contains a proof ot this) ano it 
memset. ecient fOr restoration of Consistency to forward the 
updated values of modified data SD /CCUsmcs Chem SitCSaeagere 
meolication occurs, 

Both wrignt {lo} ana vavidason (15) siscuss tne 
Construction and use of a Preceaence grapn to oroviae 4 
means for determining the transactions wnich snoulc oe 
moLtied oack. we Will USe tCneir aporoacn, moOditiea to fit 
our implementation strategy ana concept SE Cons2 ies 
nistorieS and preceaence relations. Ineir precedence gragen 
G = (V,E) is definea 4s the vertices V selina tne union of 
the transactions from all partitions, and the eages & veing 
the unlon of "Denoendency eages" Caright, or “rloole eqces", 
Daviason) with "Precedence ecdges" ana “interference tages", 

Depenaency eages are eacesS wnicn represent tne fact 
tnat one transaction fread or wrote a value wnhicn naga ceen 
Prevyviousiy updated by e different CranSaction In tne sane 
Partition, me pPresene> of rrecedence Edges Indicates tne 
fact that a transaction read or wrote a value «nich was 
later cnanged dy ancther transaction aiso in tne same 
Prerrcition. MnGerrerence cages aepear wnen a transaction in 


one partition has read or updated a data object and any 


35 









transaction in anotner partition also nas upaatea tnat aata 
object. 
The "Dependency Edges" and "Precedence s«#dyges" neve 
@lready veen constructed by our concurrency controller winicn 
has remained active within eacn partition. mie y eae 
includeaq as conflict history pairs in tne Fartition Logs. 
esc liiaremains for us to construct a conflict pair for any 
transaction which reads or writes a data opject in one 
Partition ana tnat same data onject 1s ydaatea in 2 
different partition = tne Interterence Edges, 

For example, if transaction iil reaas cata onject 4 
in partition 1, and transaction I2 writes data onject 4 in 
Pomuwehon ti, then the conflict pair "T1LY2 : a" Senust oe 
includeq in the glonal relation. if pdotn transactions naa 
written data onject a tnen eacn control site woula insert 4 
conflict pair in the glocal relations "T1iT2 i: a" and "i2i1 ; 
a", nis would easily oe detected as a cycle ana eijitner 1 
or T2 would be rolled sack to a point wnicn proceeded its 
execution on data onject 4a. Tne mé@étric wnicn must ce 
Preeseme in COMELICtR pairs snould oe Caiculatec as a function 
of the work whicn each transaction nas pertormed, 

Gnce all conflict pairs are constructeaq it ovecomnes 
convenient to considger each partition’s control site as the 
only site within that partition. fhat control site shouic 
nave the complete set of conflict histories wnicn were 


aerived from witnin ics partition ylus tne aaaea 








"Interference Edges" and it snould invoke a “Partition 
Concurrency Controller" algorithm wnhicn 18 essentially our 
implemented procedure "GLOBALo5a" (see Appendix 5). Lnis 
Bavecatson wiil cause the fassing of conflict nistories 
between control siteS and the SsupsSequent aetection of any 
cycles, The cycles will cre detecteqd ana eliminated in 
exactly tne same way as is taking place at cotn data onjects 
and initiating sites when the proposed concurrency control 
mechanism 2S insuring Sserializanvle execution witnin a tuily 
connected system, 

By Inspecting tne glcoal preceaence relation, tne 
Piecwcronm concurrency Controller finas eli'tner transactions 
involved in cycles or tnose wnich are nct. ror tncese 
transactions not oart of 4a cycle, the transaction 1s removed 
moowetie Treletcion anc tne values of Che aqala ofjects upaatec 
eee f£Orwardaea to the other partitions nolaing tnat cata 
object so that these cata opjects can ce reconciled. enen 
tne mechanism ecetects a cycle 1t ecnooses tne lowest cost 
MmmeansactLton (eOssibly the one naving tne fevest trensactions 
dependent on it) and senas the transaction to a reeexecutioc: 
aS This erocess Ecrermue Ss Uo) Goa there are no 
meensoaGcalboms Lett in tne relation. Lastly, tne reeexecution 
misccerseemctiea bY processing the transections oresent jn 


ene Lise 
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4. Partitions Create Lonaslived Transactions 

Consider now tne example presented earlier ee 
Chapter iIfi, section b&b. Assume tnac Aree P wehomodcc! Omnis 7s 
Suotransaction, ST3l, arrives at site ¢, a partition occurs 
isolating site E [iss inltlating site) “trom the orne:, 
Sites. nus, SfT31 is unable to return to its initiating 
Site. It will, as ocefore, axecute on Wea Cd (Gre) cic et anc 
Sreate LtS temporary version tnere. It «ill also remain at 
eite fF walting for tne partition to nerge, wnat nas ceen 
created py the partition is actualiy a tyre of Ilonaelived 
meransaction, [nis transaction wilt be autonaticaliy rane lea 
By tne system because it creates a temporary versicn in the 
Same manner aS ao transactions wnicn are not longelivea. 
The fact that tne temporary version created is procaoly more 
Dersistent (it may exist for hours, aays or weeks) tnan most 
other temporary versions soes not introauce the need for any 
special nandling of sucn long=iivedq versions. 

A tranSaction wnicn is inout into tne systen 4na 
wnichn is iongelived due to tne transaction’s very nature 
Oresents proolems in a cartitioned environment. To f"erge 
che partitions it 1s necessary, aS was mentioned aoove, to 
cease new transaction input an@ to allow ali presently 
executing transactions to comelete execution, rnis may not 
pe feasiole for the long=livea transaction as 1£ mignt take 


weeKxs ToL 1c. Co complete 1Gs execution, this remains a 


problem which deserves furtner investigation. 
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Ve SIMULATION ANC TESTING MELHODULUGY 


A, INTRODUCTION 


In order to test the proposeac adaptive concurrency 
control algorithm and ce SEOV ice SOME meaningful 
measurements of i1tS capabilities, a Simulation ot tne 
mecnanilsm was lmplementea. The simulation was programmed in 
DEC VAkell PASCAuU and executea on the LEC VAK 11/7580 running 
under VAX/VMS, SoOUnCe Code for Ene simulation meqe.: ana 
Output from example Simulation runS are Brovidec ia 
Appendices B and C respectfully. 

Tne Simulation was designed to facilitate 4 onasea 
approach for investigation cf the algorithm in tne areas 
addressed in previous sections of our tnesis. Unie wes his = 
phase, wnicn 1s tne target phase tor our implementation 
effort, is an initial test of tne casic aigoritnm’s ability 
mumecacemas 4  jLOCal concurrency controller tor Gacn aata 
Beeect andg¢as a site concurrency controller tor one given 
Site, Data structures and processing modules, aesigned ane 
Peognpanmea fon tnis first pnase of simulation, were aeslgnea 
in a manner which would insure their extensibility in any 
future onase of investigation. 

Future investigation of the algorithm’s Capanpliities 


woud center oni 1ts application to tne partitioned network 
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environment. In this context, the algoritnm would not on.y 
act aS a local and site concurrency control mechanism out 
alss aS a concurrency control mechanism at Sertition “verge 
time. 

Because we envision the integration or expansion of our 
Simulation to other areas of IMGetTeStMineGistrwgitea system 
software aeslgn, we elected to toreso any type or 
Peonpabligstic moceling stch as found in veviason 115). 
Instead, we opted tor a more pragmatic approaecn involvina 
Stanacard data structures such as linxes lists, arrays ano 
recoras, Tne remainaer of this chapter elacorates on our 


design and testing scnemes, 
Sie DATA STRUCTUKES 
a. Transactions 


Transactions are implemented in the simulation 
design as a linked list structure pointed to by a glooal 
Pema Ole {TRAWOLWPIR). Ine structure contains three entities 
of differing types: transactions, suctransactions ana atonic 
MoeiOnagse resicing, at tne hicgnest levei in tne Structure is 
the singly linked list of transactions. Each transaction 15 
Batauely Known oy its identifier: LN Sa SL Tet eh A Ome Oa pa 
witnin each transaction record f1leid are pointers ana rields 
men ar@ us@d for Structure navigation ana Process 


eecounting. For a given initiating site tnere can exist up 
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Mmemone s1uMeared different transactions. Eaen transacticn ius 
active me cme Structure up tomtne point in time wnen it is 
commicttedc; at tnis juncture, tne transaction ana any or its 
Mommcers CO Lower level list are removed from the structure. 

Every transaction noce foints to a singly tinkes 
Mmeoc Of SUEtransactions eacn of whicn is identitiea sy: 
emt itooiTE, TRANSINUMA,STaoNUM), ouptransactions are tne oasic 
tiitts f0r scenarios where €n@ FURK and JOIN oberations are 
used. ne suotransaction noae provides tne nead or tne list 
for its atomic action string. A transaction May own ub to 
one nundrea unique SUpChemsacelLons.. AltMouan 
suptramsactions are mot autonomous in tnenselves, they can 
be conSicered the execution encicy in our seneme as tneir 
atomic actions must de processed in linear order 45 tney 
appear in tne string. A given Suptransaction, on the otner 
mand, may se executed witnout regara to the ordering of 
suotransactions in @ transaction, 

MecaiiicwaCtLONS, COontaineg in enother singly linKkes 
list pointed to oy their suotransaction, constitute the last 
ema Low Bst level in tne transaction structure. Identifiers 
Zor ac ou iC actions contain Sous, ae ons 
CIPOTICSITE ,TRANSLNUM, STONUMZAALNUM}. Atomic actions contain 
all the inftormation tne execution orocess requires to 
Simulate transaction execution in tne system, Ene Rowekul, 
DOw~ID, and METRIC fields in tne atomic action proviae tne 


necessary information to be aole to access and execute at a 
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data ooject. Unce all atomic actions nave executed fcr 4a 
given Subtransaction and all subtransactions nave executed 
fOr a transaction, the Cransactigmeas SCtivityeers CO@eiece 
exceot for commit. Uf course this is assuming no abort of 
POolilpack occurs, AS previously noted, eacn atomic ection 
String for a subtransaction must execute in tne order in 


whicn they arpear in tne string. 
PA Comitrirec Histories 


pcos. Ceenistory, presentea in cnapter ili as: 
Wem ees oe ea) 
Pmoewemenced aS a Ppalr of noaeés in a linked list. In tnis 
instance, the first pair member would contain intormation 
MeoouL tChanSBaction T2°s e€xecuticn at data snoject £ ana thre 
pemecndseair memoer woula contain 13°sS information. une or 
Meme seairs9in a» list linkec oy the first pdlr memper 
constitutes a conftiict nistory. PMese “VCChtlice Nistory 
pairs are transformed into precedence relations wnenever 1% 
1S necessary to make a cetermlnation Treyarding serializanle 
Beecution., Ihe £cllowing entities nave oointer flelds for 
ome ui ct femcorlLes,  Cransactions,  suotransSactions, cate 
Oojects, and temporary versions, At tne cata ooject 4n4 
temcorary versions, conflict nistories are components of tne 
DO Log wnicn prevides intormation reaarcing serializeple 


execution to tne local GOncurreney comtrel ler. 
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Gn the other nand, conflict nistories sresicing at 
the Subtransaction and transactlon are used to £485 
information from transaction to transaction eueke; e\lb ter ile eie ie 
O@pmeets visited for execution, In ScdsCLOngemess CONEMICE 
nistorles at the subtransaction ana transaction are used to 
@etect noneserializacle execution at tne site level, wnen a 
meanisactloOn is requirea to TolloacK oart of its atomic 
action stream, conflict histories are purged at various 
Places in the System in order to insure no "eEhantom" none 


Serializable execution is cetected. 
3. Data Objects 


AN array (DO.ARRAY), containing one nundrea pointer 
Slots, simulates aatabase data onjects, when deta onject i 
Memdealv@sat 2a Site, VULARRAY([1) boints to a record wnich 
contains intormation cefining that aqata ooject. ine recera 
atso holds pointers tor the temporary versions, lo0cK aueue 
and conflict histories present at the data ooject. 
Temporary versions can reside at a data object in quantities 
determined oy tne vaiue of "nN" coded {nto tne aata ooject in 
Eleld N-CNT. For any one Simulation run tne aata ocject 


Darameter information is static. 
4. Data Dictionary 


anen an Sig te Eat Gezia ae gio | site prepares to execute a 


Seeemensaccion’-s atotmic action it must aecide wnere tne 
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target aata object is resident, Tnis information resiaes 1n 


Cie 


ui 


an array of pointers CDOICAARRAY),. DICsARRAY CU] nola 


initiating site’s own site nUmMper so tnat no instanc tne 


re 


th 


fe 
Simulation execution in a computer 1s aererndent on site-= 
specific code, 1.@., if an initiating site neeas to Know wno 
it is, it interrogates its instance of CICLAKRAY(U). For 
any aaéta ooject i, DICLARRAY (14 Gontains a Linced iisc 
seecifying at whicn site data onject £{ 185 resicent. All the 
intermation for FURK, JUIN and replicatea vata 15 reflected 


iiecme Gata dicctionery array. 
CO, osMULATION EAECUTICN 
Ve, specifying tne fest environment 


sefore Simulation execution can pegin, tne 
transaction, gata onject ana adata aictlonary structures must 
exist. MOdules nave been frogrammed to Prov ae Cine 
meructures to the simulation £rom intormation input by tne 
Meera sme Provision of these structures 1S a three pnased 
operation, 

In phase one the user specifies which comoonents cf 
Seen Structure will oe active for a given simulation 
scenario and wnat intormation will reside in eacn structure, 
Pnase one is executed by tne processing of module bLUDS. 
Here the user is prompteaq via menus to provide tne 


information wnien will oe uSed to construct tne tnres 





Seructures. Information contained in atomic actions, Qata 


Opjects and tne data dictionary can we specified, wnce Cais 


cy 
re 
é. 
|} 
MO 
ry 


memeeormation is input, it cannot se cnangeaq by 
except by another execution of bLoUS, 

Pnese two takes the intormation provided tnrougn tne 
use of eLDDS, wnhicn has neéen stored on tnree tiles, ana 
Bomsctructs tne three PASCAL data structures, EEDIX “Sulles 
tne transaction, sustransaction ana atomic action structures 
tomageconmhy tre data which was providea in specifing tne 
agescription Of che atomic actions. BReT Clon eye -omtuc 
@ctvons Must be entereaq in sorteq oraer in s8nDUS, i1.@., 
(1,1,1,1), Cl,1,1,2), C1,1,2,1), (1,2,1,1), (1,2,1,2), 
Ot,3/1,1), etc. 

SLOODC constructs the data object structure from tne 
MeetOrmation brovideq in sLodus;: the cata opject numoer ana 
eme Value of "n” for that data ooject. A value of U for fn" 
is not allowec by the implementation cecause at tnat value 
tne aiygoritnm uses a twoepnase locking scneme ana we Gia not 
Meve time to fcrogram sucn a method into cur simulation. -ror 
MiemecOMotructLlon otf cata opjects, any aata ooject i, 
eo=is=99, 8MAICh BWas NOC reauesStea oy tne user in siuvvS, 1s 
indicateq by tne ocresence of a NiL value at YULARRAY CII. 

Tne data dictionary Structure iS oullt cy Mmoauie 
Due owewemwcaim, tne information provided in plrDs 1s useéa to 


oOulld tne linked list off array DICHARRAY., AS waS tne case 
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mer the data objects, any Geta Object 1 ence. Anew use {5 
represented by a NIL value at UVICAARRKAY (1), 

Marecme Sxecucion of SL00S, sLUTX, 6SLDOU, sbLuDTC 
tne simulation nas all the information it needs to cegin a 
run, Une aaditional pnase of structure specification alio*s 
mae user to specifty tne aadition of temporary versions anda 
Bemerrect Histories to tne three structures built adcve. 
This pnase was includea in tne Simulation to proviae tne 
uSer wlth some degree of fiexioility in the teSting of 
Simulation modules and to allow tne user to influence tna 
Simulation scenario in the areas dealing with tiona-livec 
Cransactions. meaules SAVCHIY and CUNCHTV execute in this 


phase, 
vam MagoOracam olmulation execution 


witn the data structures puilc in the aforementioned 
meoeenes,.) come Simuitation is ready for execution, rine 
BOlbow2ng discussion is an explanation cf Now Cransaction 
activity is simulated and how tne alyoritnm implementation 
eerrorms its functions. 

Omoms control is passea to tne main looo of the 
Simuractonm process (C(ALGO.TEST), a ranaom selection process 
Cakes olace wnich simulates concurrent processing o£ 
Suptransactions on a catabase. At ranaom, a transaction and 
memorcm. eSmSuUbtCransacticns 18 sejected for a set amount of 


EPrOCeE SSL AG. we again note that atomic actions are selected 
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in the order in which they appear in a SuUbtransaction. Tre 
amount of processing activity allottea to a selectea atomic 
action is controiled by steps defined in @ CaASe scaterent 
within module EXECUTE. For each random selection ot an 
atomic action, one step of the CASe statement 15 executed 
Ber that atomic action, Dn@meLourceen SteGos In EXECUTE 
femineate tne executron activity for all atomic actions. 

peeian the CASE Statement is founda the code which 
invokes the modules tnat implement the auaptive concurrency 
control algorithm as a local concurrency controller. [nese 
modules insure that the atomic action activity at a given 
data object is serializacle. Local concurrency controiler 
processes ere Gatled whenever an atomic action has 
conflicted with another in sucn a way aS to indicate the 
possisility of noneserializacsle execution. Since ootn tre 
atomic action activity ance tne implementation of tne 
algoritnm are programmed in the CASE statement, aecisions as 
to when tne adaptive concurrency control mecnanism is to ce 
invoxed are easily nade. 

Conflict nistories constructed aS a result of atomic 
action execution witnin the CASe statement (Cin EdAECUTL) are 
propagated to the subtransaction and transaction structures 
in addition to being placed at tne gata object. nis is 
done to simulate tne Suotransaction’s "carrying" of its 


mone rctrnitstories during its Cravel tnrougn the system. 
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PamuUbation of the site concurrency controller 1s tne 
Other main function performed in tne main loop. At eacn 
Pass through tne main loop of ALGULTEST, one invocation of 
SacCurTe and GLOspALLS&k 15 £=performea, GEOGAbaorr, S lip y 
inspects transactions at Critical junctions Or tneir 
execution and determines whnetner or not Wench see e 
—=eocuGlom Mas occurred, I[£ it has, serializacle execution 
is restorea. MawgUraily, since tne” Local” “concurrence, 
Somenrolber and Che gqioteli concurrency controlier are soth 
implementations of the same algorithm, tnev utilize the 
marvices of commen SuUbroUTINeS. Selag instance, tne 
Meee laGuDepBALISK routine is invekeg when tne site controller 
is checking for noneserlializable execution and «nen an 
atomic action timeseout at a gata object and 15 placeu in 
tne lock queue, 

Tne Malin Loop invoKxes BARCUTE and GpOspaAboSe UNE 
all the transactions in tne Structure have committed. 
Slaeiom activity is reflected in the output freceret 
AUDIT.DAT. Sinee AUDIT.DAI 18 a Sequential leg of process 
activity from the beginning Of Simulation execution to tne 
Semmurment Cr the Last transection, tne report can oe used 
to audit simulation activity at Ceti cal stages Ge 


processing, 
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Dee TESTING SCENARIOS 


A Simulation run can oe Copeorcd LO exercise tne 
algorithm in various ways, An explanation of tne caraneters 
which intluence an execution and tne possirle ertect a 
Parameter can nave is tne goal ot this section, 

Inrougn tne use of the BLOULUS module tne user can control 
eotn tne complexity of the transaction stream ana tne 
Bomnrstce rate at data objects. livat 154.12 7 large amount 
of atomic actions are input whicn access 4a Smail Numper of 
Berea OOVeCES, 1 £OlLOWS tnat tne conflict rate will oa 
N1gNn. Then again, if a smali number of atomic actions are 
Meee somndea barge Quantity of aata oojects tne contlict rare 
will be small and may well ove virtually noneexistent. an 
indication of the amount of SYUerT Gen lZat. on overnead 
mMeQdUuiTeaqd oy che adaptive concurrency control mecnanlsm can 
be ottainea py inspection of tne aucit report ror veryina 
Conflict rates, 

Peevemeanealso be useq to set tne "nN" value tor aate 
Oojects. This parameter, in conjunction witn the deiay time 
fFaccor, arfects the frequency and guantity Or atomic actions 
Pmcering ne 1locK queue, Uf course, tne ao HG FRE Ss BK 2, 
determines the numper ot temporary versions allowed to oulld 
up ata data ocject. a peovonepes com cne (eer nal (Oe rore 
entering tne main loop allows the user to enter the celay 


tine. factor, The delay time is tne time allotted to an 


he 






atomic action before it timeseout waiting for a snort 
duration lock to be removed at a Gata object. 

Since selection of atomic Jel ene oP TeClGaleq on m4 
Tanaom nmumoer generator, different seeds to tne generator 
can provide ditferent simulation results even it all otner 
test parameters are neld constant. Pe "SCec TS > Pequcs ted a, 
a prompt pefore entering the main looo execution. 

Tne oresence of lLongelivea Cransactions at a data odject 
is Simulateaq oy tne construction ana placement of a 
temporary version at tne target data ooject., aAnotner ~romet 
at tne peginning of a simulation run allows tne user to 
input temporary versions and place tnem at the desired cata 
Sojects, By Varying the mix of the aforementioned 
Parameters, a user can generate a wide varlety or Simulation 
seengarios. 

Jur einitial tests Sr ene sa hoot en mean ly eG mt ie a Newt oe 
successively more complex transaction scnefies. «we vegan 
Merneswapre. transactions which could not oossibly conflict 
with each otner in order to <insure tne valiaity of our 
Geeton. 10 test the Local concurrency control mechanism, we 
input transactions witn tne capaniiity of generating siliple, 
Cwo node cyciesS in a precegence grapn, po Ne (Gained 
confidence in tne simulation, we tried transactions whicn 
were sure to contriict botn at Che data opject level ana at 


tne site level, These more complex Utransactions resultéc in 





ieveryvying £0Ur or more modes in a precedence? 
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VI. TEST RESULIS 


Once the simulation was operational, we were concerned 
with two objectives. First, we endevoured to insure 
Bemseeives that the implementation aia in fact retilect tne 
Proposed algoritnm in the areas of BOCal CCNCUrY ehaiyac Ofmaot 
eae s2ce Concurrency control. Seconaly, ve were ilinterestea 
in the analysis of simulation output in order to pre able to 
make some Meaningfui jJuagements on the algoritnm’s pvenavior 
Sma POSSGLOLlyY its performance. Our testing metnocology, 
designed to meet these two ocjectives, involved tne setting 
of various simulation parameters crior to a simulation run 
PaemememesanmareectCing the sutpuc audit Listing fer test 
results, Repenalx € providqes a sample cutbput Listing rres 
mae AUBLiT. CAT fille creeted as a result of a Simulation 
execution, 

Tne parameters wnicn we were anole to vary for any one 
SamlLation rum are as £0llows. First, the complexity of tne 
transaction input stream, Pls, Lene "alan ey Of  atcomic 
actions and the atomic action execution activity at any one 
data opject, Segond, the number of Stemporary | versions 
Beleweag to bulld up at a given data object, This parameter 
is variea by changing the "n" value at a data ooject ("™n" at 
aed aeaeoo@et 15 static for a test run of tne simulatlon). 


Third, a variaole timewout value for ail data Oopjects 


02 





Provices ‘the final run Carameter, Snorter delay times 
insure that suptransactions will encounter snort term LOCKS 


at data oojects ana, as a resuit, triguer tne gaeadlocx 


getection mecnanism, 
A. TRANSACTION STREAM INPUT 


Tarougn tne use of small transaction streams w#nicn 
Produced simple cycles, we assured curselves tnat tne 
Preposea algorithm performed as an optimistic concurrency 
Controller at sotn the data object and the ig ehcp eire ab gley ah ate 
levels, ffne simple cycies were detected, atomic actions 
were roiled cack and reexecutegq and serializapbie execution 
was restored. 

After tnese simple tests we allowea more invoived 
Mreansection streams in orqaer to investigate tne algoritnm’s 
benavior in more deptn. We discoverec at tnis stage of 
testing tnat our rollpnvack anc Yreexecution scneme, following 
ememeaereection of non“serfallzaole execution, was ques 
SOpnrscrcaced @noughn to insure the commitment of transection 
weredGemvircn geneératea comolex cycies. Inet 1S, saiter 
detecting a cycle, our strategy seiects tne least costly 
Contlict pair (ovased on the metric) wnich will obreax tne 
eye let, Pimeemem FOhls SaeK both of these atomic actions ane 
inserts tne atomic action whicn nad executed last (in tae 
Gewe 8@elected) into a reexecution list. The reexecution 


Mb6eeis 2a Gbeue whicn Will always insure tnat tne atomic 
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actions contained therein will execute in the oraer in -#ricn 
they vere entered, ana without any intervening execution on 
the part of other atomic actions. Any otner atomic acticns 
not contained in the cycle whicn must »5e reexecuted as a 
mesure Of an atomic action in tne eycle creing rollea tack 
are rollea back and reexecuted sredicated on tnelr selection 
By the random selection rrocess, 

Biomater ategy is tco simple in tnat it apoears to te 
Mecesseary tO aiso inSure the Serial executlon of the otner 
transactions wnicn were involved in tne cycle «nen tne cycle 
is complex; otherwise, tne Simulation experiences continual 
Tolloack ana reexecution of tne seme atomic acticns. 
momeweh, “et were anole to run the simulation for a perioca of 
time in order to demonstrate tne none=serializacle execution 
getection capabilities of tne algorithm. wnen comolex 
cycles resulted in continual rollpacK and SOMA Lon uN 
aported tne run and relied on tne partial output for test 
anelysis,. 

ieecmeewrclloming sections, we aiscuss our oosServaCions 
regarding tne effect of various testing parameters Tc tne 
Greatest extent possible, we neld all ovt one or tne 
Simulation parameters constant tor 4 series of simulation 
TunsS and opserved tne cnanges the one parameter producec in 
the output. Pree acdei&ion, — se Provide comments on our 
experiences with the proliferation of conflict nistories 


Cnreougnout system cata structures, 


64 





Pre JiMER"OUT PARAMETER 


Tne time-out parameter determines now long a transaction 
waits for tne completion of a transaction executing at 4 
Gata ooject ceftore tne waiting atomic SCELOM enters Perc oer 
queue, [hts Carameter proveaq to be of great consequence 
during testing. anen very short delay times vere used, 
Suptransactions woula be inserted into tne lock quene et 2 
meetetrare. Once in the lock queue, tne aigoritna requires 
Mee msaerer1Ons tO OeSS cCOontlict nistories, wnaich reflect 
Emme contllet conditions at tne aata object, ae tne 
Beansaction level, Transactions whicn apcear in tnese 
Mepeetct MiseOrle€S then pass contlict nistories among 
themselves. what is important in tnisS Scenario is Cnéat tiie 
Mts sequence cf& events provides Eevee Site concurrency 
controller witn a nigh contlict rate and as a result, a align 
Propaollity of hNaving tS mangle fairly complex cycles 
involving fossioly many transactions, 

Giemmencenesult iS a nign rollsack rate anicn coult 
easily involve all tne atomic actions wnich have executed us 
Mmomemac POlnNt. Under Chese conditions, and because our 
Simulation uses a simple rolloack and reexecution strategy, 
the simulation process experiences a continual cycle of 
Bemabecxemsana Teexecuclon With oniy 4 Small chance Ctnat 
transactions will pe allowedq to commit. Fron Test 


Cpservations it was evident tnat tnis situation gets worse 
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as more atomlc actions are forceaq into tne locx gveue, 
Mreretore,, Longer transeacticn input streams with many 2/516) ables 
ae ctions addressing ae 4 Lie numperme of fieiGa Oeects (qu 1 
SentinUaaay UNdergo a repetiticn of rollback ana reexecution 


WMithout commits. 
Ge Ine "n" PARAMETER 


Since the nee parameter determines how Many temporary 
versions are allowed to resiaue at a data ooject, it alse 
contributes to tne proplens coserved wnen snort aelay times 
were used, Tne rate at wnichn suntransactions encer tre Leek 
Queue 1S accelerated when tne “n" parameter is small it is 
Obvious that tne two parameters "nN" and tne aelay time, 
togetner, affect the rate at which a lock queue 1s filiéea. 
ho oe@eter understand wnat erfect ya ana the aelayv tractor 
have on processing, we tested witn a fairly long ana complex 
transaction stream anc varied "n" and tne delay. The 
results were very interesting. 

wnen "n" was set low (values on the order otf 1 oF 4) 
Witn a snort aelay time (values of 1,2,3), tne site 
controller was unable to find a seauence of froilecacKsS 4na 
reexecutions Porc nmmewyOUla = Commie) the Eransactions. we 
ooserved longer cycles involving more transactions wnoicn 
necessitated the rollback, time and again, of all atomic 
actions. With a large “n" value and a long acelay time tne 


same transactions committeq in a snort deriod of time. in 
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this case, inspection of tne audit Listing snowed tnat tne 
HoOCdal SorecurGencyme CONtroller “ana the site concurrency 
controlier nag to contend with Snorcer cycles anu that Llewer 
transactions were involved in the cycles. A long uéelay time 
and "n" set high seems to result in a lower conrlict rate 
tor the local concurrency controller wnicn maxes it easier 
for tne algorithm to tind a serializable execution sequence. 
With a more Sopnisticated rollback and reexecution strategy 
ceeeeccucial Cae walgorithm woulc oe acle fo contena with 
these nign conflict rates caused oy Sustransactions enterina 
the lock queve. Ur course, this can also pe controlled cy 
tne procer selection of tne two pardaiieters. 

anile attempting to tind a compination of smaii "nN" ana 
Snort delay times whicn woula still commit tne transactions 
we observea longer ana longer execution times for tne 
Simulation runs. Tnis is understanaacle since tne conrtlicc 
Bowmweaia tne complexity of cycles ariveS tne rolloacK and 


reexecution process. 
U, CONCURRENCY CONTROL OVERREAD 


It nas oeen argued that under optimistic conc'lrrency 
Sonerol LI overnead associatea Wear NOoncCoOntL ll Cling 
Geanodecrom  syncnrOnization is low and tnat tnere is 
potentially Align overneaaq for conflicting transactions ana 
restoration of serializavle execution. Uur ohservations on 


tne performance of the proposed algoritnm pear this argument 
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Mmirwmene or Noncontlicting transactions tne only algeritan 
activity ooserveda was tne construction otf temnorary versions 
and tne commitment of transactions, with COM Glae 1 ies 
transactions the algoritnm pertormed a great deal of work 1n 
the areas of construction of conflict histories, aetection 
of cycles, Propagat lon of conftlict nistories, aetection of 
noneserializarle execution, and tne Festeordt on of 
serifalizable execution. 

Cf great concern to us during tne implementation and 
testing of tne algoritnm was the amount of brocessing 
mecilireg. tC Weal with tne conrliec nistories,. CORE Ter 
nistories are procagated to data structures 1n a numoer or 
nAaYS » anhen Subtransactions SOrK “Gar OUdNmercine. SYSECm tCoey 
MePosit ana collect contlict nistories at data objects. 
Transactions excnange conrlict nistories auring a@aciock 
mameecwonemeanad GUring Site concurrency controller activity. 
Tne@® housekeefring of tnese conflict histories during the 
rollback and commit processes prove to be quite expensive. 
Bevery anatance of a conflict nistory pair Which was crested 
by tne execution of an atomic action nad to be tracxec aown 
througnout tne system whenever the atomic action vas froilea 
oacK., It was alSo necessary to purge the system or COnzLLee 
mMistories related to a transaction when tUnat transaction 
committed, witnout tnis purge process false information was 
me nwocuecerm lmtO erecedence relations which resultea In 


erroneous cycles seing detectea, fnis 1S understanaadly an 
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untenable situation, furtner investidaation into tnis aspect 
Ge the algorithm is necessary to reduce the overinead 


mmm oouGeeGs bY GhNE propagation of tne conflict nistories. 
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Vit, CORCLUSLONS 


In this thesis we nave investigatea three relaten topics 
Meecimmenc iantcerest lity the field of distrifbuted computer 
systems software: VecrmMistic COMmcurrency SOME rode, 
Partitioned Networks, and longelived transactions, 

PeemevoUsuy PTODOsed ~“oOptinistic concurrency control 
algoritnm was implemented anda tested. Tne test results of 
the algoritmm and our implementation cof 1t nave oeen 
eis'cussed acove (Cnapter Va) Vem Ge Sel Gener C Ne. 
conclusions om tne feasioility ana oracticelity of tne 
seo t 1 Cen, 

Tnougn it is understood tnat any workaole "“ootimistic" 
@oncurrency controller needs to oertort well auring oeriods 
mer low7nN0 COonelict, it is still necessary for it to function 
PieaeeeasOnable manner le tne conflict raté is hign. fr tne 
BPeansacclon stream wnicn is input into our Simulation 1s 
Sucn that the contlict rate is high ana cycies of ienatn 
greater than tnree are Oresent, tnen our implementation of 
the algoritnm often will not work. anile this was discussed 
apove in Chapter VI, we want to eMmpnasSize nere that tne 
Problem appears to reside not in tne algorictnm itselt, but 
in our implementation of it. fnis needs to pe veririea ana 
is out one of many PlaceS where turtner investigation 15s 


required, we do pelieve tnet tnis proolem is iq oye 
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insurmounteble and that a more soonisticated svnroacn to 
selecting wnicn transaction to rollbacx and resexecur2 «nen 
breaking a cycle is a likely Solution, 

Of greater concern, because it deals more closely «itn 
the actual aigoritnhm as opposed to our implementation, is 
Beep rGooren Of Eliminating contlict nistory pairs whicn are 
no longer valid. That 158, when a rolibpack occurs (Cor a 
transaction commits) it is imperative to remcove from tne 
System tne conflict pairs which refiect PEQeeecOonr vices aynies 
are no longer oresent. This is not trivial to accomeolisn 
moods ee «OL Wasted effort because the oairs fo be 
removed may nave peen fropagated extensively to otner 
transactions, data oojects, ano temporary versions. In our 
Simulation, wnhnien is c£ a Small system witn tew aata 
objects, it was possible to simply loOoK everywnere for tne 
Oenelict sairs Wnicn needed to be pburgea, fis wou la, 
however, not be feasible ina real system, we none that 
further investigation orf this problem would reveal a metned 
for xeeping track of where tne conflict nistories are 
propagated, tnus enabling 4 mucn more efricient scneme for 
purging tnem, 

wext, we considereaq hew tne SOmeurrency ECn ere 
eraorienmemswould nandie a specific class of transactions, 
called "longelived", which presents systems with some uniaue 
Erool@ms. Lt appears that our a@lGorithm mey be anole to deel 


witn long=lived transactions because tne temrorary version 
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mecnanism causes Long-lived transactions to ce 
indistinguisnaple from otner transactions, Tne aldoritnn 
can also present a4 more realistic view to the user as to tne 
Status (whether or not it 1S committed/permanent) of any 
longelived transactions which might nave been input. 

Tne third topic wnicnh was investigatea was tnet of 
Partitioned networks witnin a aistriputed aatanase systen. 
Our algoritnm also seems tO o& naturally extensivle to tne 
Beartitionead environment since tne mecnanlsms required tor 
detecting ana resolving cycles ana nonsérializability are 
already present. Inus, extension of tne algoritnm to enadile 
me tO nNanale a Pane Le Lon merge SmOw led oe parol ye Sy) 
Straigntforward, Prom SCeOCGGmM Ly yocmanotnet Sareea) there 
rurtner work could pe accomplisned - tne actual 
implementation of the extenaeq aiaqoritnm to enanle its 
Boeration in bartitioned systems, Additionally, tnere is 4a 
Meea es f£OF  f£Urtner research into tne oroblem of how to deal 
witn longeliveda transactions wnich are oresent in a system 


which ocecomes partitioned, 
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APPENDLX A 


DES PROPOSEU ALGORITAM 


The three pnases of the oroposed adaptive ontimistic 
eomncurrency control algoritnm are aescrineaq below. Tne 
first phase addresses the execution of transactions at 4a 
data onject. betection of Nen-serializaole execution 15 the 
opjective of the secona pnase ang tne tnira onhase aeals «itn 


tne commitment or transactlons. 


Execution Phases 


SiGe Cmome suobtransactions in tnis tranSaction) ov 
FOR each suctransaction 00 or Du CONCURRENTLY 
Wilbe (more atomic actions in tnis Suotransaction) vu 
cnecKk ror lock on data ooject to oe accessed 
he oeK [nen ; 
WALT FOR [TILME“QUT 
ZNO IF 
feeno Lock THEN 
acquire locx 
read/update data onject 
ioseeece oo log for conelict 
Pemconflict THEN 
GOnstruct orececence relation from ao Log 
set s equal to number oft temporary 
versions in the ao log witn «hicn 
SUrpsene tCrensaction is in conflict 
If nonesr execution TmEN restore sr execution 
send message teliing contlicting 
transaction to roll back to site 
of non=sr execution and restore 
serializaole execution in most 
economical manner 
Wecdace contlien, nistory 
IF read/update based on temporary 
version Trin | 
mark new version as t(w) 


73 





ELSE 
mark new version as t(r) 
END IF 
ELSE 
Meeagte COnNrtL ict mistory 
marx new version as t(w) 
PND Ir 
ELSE 
5s = Q 
mark new version as t(r) 
END IF 
Push Sntry Onto do loc 
Ir s < n THEN 
release lock 
END IF 
ELSE 
enter locK queue 
send message to own initiating site giving 
SOntsemect history and tocation 
enter detect nonesr detection pnase 
CLF nm = YV consider all locks ana all 
enqueued locks as a part of transaction 
Gomeuret = aiStocry) — 
walt for locK to se reieased 
END IF 
ENO WHILE 
END FOR 
HommeOMnGCUrLehe sUbtransaction THEN 
merge contlict nistories 
. END IF 
END wHILE 


Detect wonesSR Execution Phase: 


MarmGOWEMnGuenisuOory emecty THEN 
PP waecelvewsconftlict nistories THEN 
Senmem@message topinitisting site of conftlictins 
transaction saying “trans committed’ 
END IF ; 
enter commit pnase 
ELSE 
PQmememcme transaction in contlict nistory vO 
Semen Genpy Of conflict nistory to initiating site ot 
eacn transaction 
END FOR 
FOR each conflict nistory/oreceaence relation receivea LO 
construct precedence relation 
IF precedence relation snows noneSr execution CHEN 
restore serializarcle execution 
IF transactions still executing THEN 
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Semecteleaest cOStlyuuransaction bCalr 2707 
among tCraensSactions that are still executing 
ELSE 
Select least COSE1Y transaction pair 
ere LF 
transactions in selected transaction oair roll 
back to site of contlict ana execute in 
Opposite order 
Weaarescontiler history 
If read/update based on temporary version THEN 
mark new version as t(w) 
ELSE 
mark new version as t(r) 
GND IF 
ELSE 
Sema precedence relation to initiating site cot 
transaction adaed to vreceaence relation 
Sc) 2 a 
eND FOR 
IF receive ’trans committed’ message THES 
pass tnis message to initiating site from «nicn 
received most recent precedence relation 
END IF 
Ir transaction comoletea THelb 
enter commit pnese . 
eLSe 
continue witn execution cnase 
END IF 
END IF 


Commit pnases: 


IF all temporary versions are t(r) THEN 
send commit message to all sites at wnicn 
Cransacticn executed 
ELSE 
FOR each t(w) version DO 
IF t€w) site reports ’abort’ THEN 
Bom Sack to site otf abort 
rewexecute remainder of subtransaction 
enter detect non-sr execution pnase 
ELSE 
Pema. €Cw) versions report “ready to commit’ THES 
send commit message to all sites at wicn 
transaction executed 
END IF . 
END IF 
END FOR 
END IF 


Ws 
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Euinacion locks, 
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APPENDIX 6 


SIMULATION SCURCE Cude 


(RKKEKKERR AREER KKK EER KKK RARE KEK K KARE KEKE KK KER EK E KEKE KET R SE) 
CKEKKKKAKE EKER ERR ER KEKE RARER KER ERA KE AKER KKK ARR KEKE KEE K EEE TY ) 


(* type declarations tor simulation moaules *) 
(* contained in file "“strtype.pas" *) 


CFXKEKKKEKE AEE EK EERE RE HE ERR ER KE KKK KEKE RA KK RE RER KEK AK EK EKER) 
(KKKKERKKK ERA KERR KK ERE SER HRA EK KEKE KERR AKASH KR EKER EEK ELE EG) 


(* pointer types ¥) 


(KRKEREKEKRKKE KEE K EKER KAR SEAR KE RK KEKE ERE KKK EKA ERE KE RER EX) 


Sehaecieceatlr ="“Chapeliricrect; 
Senecmanmse = “trans.rect; 
Strasnoams = Strans.rect; 
Sep edremwe= CGic.rect; 
Seracaa=—aa.rect; 

Semmes “tCVUrect; 
Seneewock.g0 = LOCK.¢g.rect; 
Sepegoerenn = “ado.cern.rect; 
Stree =- “charect; 
Straer@exec = “rewiexec.rect? 


CERERRK KEE EKA KEKK KA EKER EKA KE ERE RK KK EK EKER ER KER KER KK EK KEES ) 
CERAEKKER KR KE KKK KEKE KEKE KERR KK RER ERA RAKE KKK KKK KA KKK KE KE) 


(4 ereecora tyres *) 


CKXKSEKERKKEKE KK KRKKEKKKR ERE KKK ERR K KEE KA KEKE KEK REE KEK KEKE KEES ) 


Pesexecececc = record 
impteesite $ cnar; 
transonum : integer; 
stenum : integer; 
aa.num s integer; 
deed s integer; 
eee - Pptrereexec; 

end; 


(KKKEKEKEKEKRE KERR KKK KEKE KEKKRE RK RTE EKER ER KEKE KEE REE KEK REE ) 
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GOevemier ect 
CNePtr & 
Cveapur -s 


nOwreads : 
noowwrites 


Fecora 


PLrach, 
SGrocy; 
Poeckedabdtr 


Dire. OCkK Gd. 


mi ceser; 


integer; 


ooolean; 
feent © integer; 
Sa2ene.s integer; 
Peoecrmeary : integer; 
eneseq : integer; 
end; 


Lock $ 


(KR ERE RK EKA KK ER RK KK EKER EEK KEKE K EAHA KEK EK REE KEKE RR ERK ERK ZG) 


CVerect = record 
Soeeneces ¢ ptr.chn; 
aa.id : record 


ereamhsesite ; recora 


micas ce. § char? 
eaameaaemum § .Lnteger ; 
end; 
Sco hwie 6 LnNceger > 
aaonum : integer; 
few.tlg : cnar; 
omic s inceger; 
6Enaseq §; integer; 
metric 3: integer; 
end; 
Mericasum : integer: 
Cees ee ere CV? 
Scaterid.. char; 


end, 


(KRRHKK TKK KKK KEK KK KEKE RK ERE KEKE KK KHER KEK RRR KR EE KKK ERE KRE EEX) 


qoerect.— record 
ademas: record 
- trans.site : record 
Wieecmee : char? 
trans.num : integer; 
end; 
$stanum : integer? 
aaanum $3: integer; 
Eawesee << char; 
dowid : integer; 
ena.seqg : integer; 
metric : integer; 
end; ; 
Stat $ 
timecval 3: 


cnar;} 
integer; 
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steo.num : integer; 
Nnave.wlock :; ooolean; 
Preeroekaotlg $ boolean: 
Mxt : ptr.aea; 

and; 


(EKEEREKEE SEEKER RK KKK EK ARE KERR ERR A KEKE KEKE KEK KK RK KEK KES) 


Strans.rect = record 
damgetr < Ctr.aa’ 
St-10 s integer; 
ade yam ceger ; 
ddaecueagey » integer; 
aawfin.agty 3: integer; 
execaflg : soolean; 
FOGRet&LQ 3: SOOlean; 
StmGmMmeptr : Ptr.cn: 
Mm@etrrcesun $ integer; 
jeer treSstrans 

end; 


CHEKKKEKKER EKER E AKA KEKE AK RRR RK KE KK RK ERR AR EK RK KK ERR K REE KE KS) 


trans.rect = record 
Semmes Cohe st lrans; 
st.qty : integer; 
exec.f19 : Boolean; 
meecmeqguy «,a2anteger; 
Seertinegty $; integer; 
Crans.site : recora 
“initesite : ¢her; 
transanum $: integer; 
end; 
FOS & eee gain i ol? 9 oY 
Evanismwemeotr < OtCr.cn; 
end; 


(ERKKK ERE EKER AK EKER KEKE KEKE KAKA KEK KERR KKK KR KK EK KEKE EEK EEX ) 


Chameece = record 
Aces Lt rocn: 
Paeeeoer “wmotr.chapair; 
aaaid $ recora 
'  transeasite 3: record 
Siateso ce $ cnar; 
transanum : intesger; 
end; _ . 
stanum 3; integer; 
aawnum 3: integer; 
Pewerticg 3 char; 
do.ia : integer; 


des, 





cnheseg ; integer; 
(meow. Integer; 
end; 
end; 


CHEER KEKE EEE EERE ERK EKER EERE EEE RRR E KEKE KERR EK EKER EERE EKER) 


ShwbatGerect = record 
metric.sum : integer: 
@aaid : record 
 transasite : record 

bea ceasite = cher: 


trans.num integer; 
end; 
st.anum : integer: 
aasnum : integer; 


PaWefllgG : char; 
ao-idq ° integer: 


ese Gas. Leger ; 
metric =: integer; 
enc; 


end? 
CKREKKKAEKEEK KEE EEE RK ERK EKER ER KEKE EKER EKER EK RK KER KKK KKK KE RE) 


HOC <aderect = record 
Deeemeee GCL a LOCK Ia; 
MomweCtieper s PtCrach? 
@€awida $: record 


Crans.site : record 
Pnutesite $: char? 
cransenum § integer: 

end! | 

Seenum s integer; 

Geemun ; integer; 

Beotecoms Chars 

a0240 : integer; 

Gheseq : integer; 

Mecerrec a, Integer; 

end; 


end; 
(EF KEKE RKKREKK KEKE KLEE EEK EERE EEK RE KKK KK AKER EE ERK EK KEK KEKE KKSE) 


Qrennect = record 
frees DtroGic; 
Siueeala $ cnar; 

end; 


CKEKEKRKEKRERERKEKRKARE KE EEK ERE KEK EEK EK EK EK KERR EER EK KE KK KEKE KE) 
CEXKERERKKEKKAKKAKE KER REK ARK R KE KEK KEK KR K KK EK RK RE KK ER REK EEX) 
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(* array types *) 


CHK EKKEK EKA EKER KKK EKER EKER EEE KER EKA RRA RAKE KEK KEE RK KR ERE KEE) 


datawoojwarray = arrayl(i1..99] of ptraaowperm; 
Sacaeamcednrdy = array(0..99) of ptradic: 


CK KAEKKAK EKER ERE RAE EE REA EKER ERK ER KEK KEKE KKK ST KEKE KR E EKER EE EES ) 
CKEERERKERKR EK KER KERR EEK EK EE KARA KERR EERE EERE EK KEKE KK EK EX) 
CE KKK KKK KKK KER ER KEK REE KERR EER KKK AK KK AE RK RK KKK EKRKK ESE) 
(RE KRERE KK KEKE EEK ERK AKER ERR KERR KKK RRR AER EK KAR KE KEKE KEKE KE) 


(* varlable aeclarations tor simulation moaules #¥) 
(* contained in flle “strvar,pas" *) 


CRRKKKEK KEK RE KEE RE RERKEK EKER KEKE KERR KAKA EEK AKER ERR EK KEKE) 
(KKEERR KEK KK EKER KA EK ERE EK EK RK REA RRR KR ARE RAK KEKE REE KEE KEE ) 


(* pointer variables *) 


(EK KEE ERKERKEK REAR KE RAK KK EE KEE RK ERE KEK ERE KKK KER KAKK EEK EERE) 


eaanicmocr : otr.trans; 
reexec.ptr : ptr.oareexec: 


(KRHA KEE RKER EKER THK ERR ERE KKK EKA KER EEK ERE KEKE KARE RAKE KEKE ES ) 
(KKK KEKE KKK KEKE RKE RE RE KRKEK EERE RK ERK EK ARKH RAKE KKK KKK RK EKER KS) 


(*Warray variables *) 


(KRRKKE KK EKA KKK EKA EERE KEE KKAR AK KEK KEE KKK ER EK KK EKER ERK KR) 


dowarray 3: datawonojnarray; 
dicsarray : datasaicoarray; 


(KEKRAKEKKEE KAA ERA AE EKER AK ERE SEEKER KER KEK EKER EKER KKK EEE ZK) 
CRRKEKKE RK ERE RAKE KARE EKER KARE KK KEKE KKK EE RRA KK ARK REA EEK EEE) 


Soeseecera Variables *) 


(KEK KEKKEKEK KERTH EK ERK KEKE TKK KEKE EEK EER EAR KK RRR RARE KK EES ) 


renwexec.rec $: rewexec.rect; 
tvepec 3; ty.recct; 

@aaerec 3; aawrect; 
Streme_rec : strans.rect; 
@eanseree : trans.rect: 

Gia wec ! ch.rect; 
Gieeeiherec : Chepailr.anect; 
boemecaerec . Lock.g.rect; 
dee meas | dic.rect; 


sf it 





CKEKKKREKRKKK KEK EKER EERE EKER KEKE RR RK AER RAE KE KERR KKK KEK EK KES) 
CKEKKKKKEKKKK RE KER REE KEKE KEKE EKER KKK ERE KK EKER KR RRR KK RKKR ZS) 


(* file declarations *) 


(KKKKKKKKEKRKEKKKKEREKES EEK ARK KE REE ER KEK EK REK KERR KR KKK KERR KEE) 


trans : flle of aawrect; 
audit, data, agatadic, dooj, runfiie : text; 


(ERKRAKERKE RK EAE EKER EE RAKE EERE KA KER ERK KKK AKER AKER KK EKER ER) 
CKRKKRKK EERE RK ERK KKK KKK KKK RE RK KR KK RRA EKER RE RRA EEKKKK EAHA) 
( KRRK KAA KEK KKK KEE KK R KERR RK RE KK EER KEKE KE AKER EKER K RK KEE KS) 
CERRKEKKKEKK ERK EK EKA RK ER KK KEK KE KK RRR ERE KK ERT R ERE RK KE) 


PRUGRAM bldds (inbdut,output,trans,aataqic,aob))}; 
(* this cullds tne data structures for also test *) 


TYPE 
SINCLUDE “strtype.ras /nolist’ 


VAR 
ZSINCLUOe “’strvar.pas /nolist’ 
ch 3 char; . 
ans,a s:integer; 
SOmeeGrrScOprun ¢: boolean; 


(KKEKKKA KARE EK EAE KER ER EKER ERK EK EERE KERR EEE KEKE KKK KER ERE ) 
CER EKKEKKK ERK ERE KEK SK KSE KAKA KR EKER RE KKK EK KKK KE KERTH KE HX ) 


PROCEDURE readwinteger (VAR num sinteqer); 


(* [nis reaqs an integer from the terminal in cnar format 
amd eeiitsmit for type. It loops error msgs until a legal 
integer is input. #*) 


CONST 
goodset = (’0’ 
maxintdig = 10 


eo <i 


e 
g 
sf 


VAR 
line : array l1..30] of char; 
index,lengtn : integer; 
goode.answer 3 200lean; 


BEGIN 
—  gooawanswer := false; 

wHILE not goodwanswer VC 

BEGIN 

imdex := ] 


=e 


eZ 





READCLline(.~index.)); 


WHILE not(line(,index.) = *% %) and not eoln 
and Cindex < maxintdig) vO 
BEGIN 


inaex := index + 1} 
REeollinet.index.)) 
END? 
READLN3 
lengtn := index; 
good.answer :5 
manaex ss =) Or not(line(,incex,) = °°)? 
FOR tndgex := i TO lengtn vo ~ 
good.answer 3= 
good.answer and (lLline(,index.,.) in gooaset):; 
IF not gooduanswer THEN : 
GEGIN 
FOR Index := 1 f0Q lengtn vO 
WRITECLine(.index.)); 
WRITELNC(°is not an integer’); 
ARITELN(’please input again’) 
END ; 
ENDS (*¥wnille*) 
Aum ss 0; 
FOR index := 1 10 lenagtn OG 
oven Un * £0 + Cord(line(.index,))#ora(’0’)) 
END? (*proc*) 


(KKK EKK KEK KA K KEKE KEKE EKER EKE KKK EKER EKER RE EK KKK ERE KARE KEK ERS) 
(KREKKKAKEKKD EKER KK KEKE KEK KEE RRR RAKE EERE KK EER KEKE EKER KES) 


PROCEDURE writesgquery (VAR ans : inteaer); 


BEGIN (4*woq*) 
Mec i@mye emis Proc DULldS new £lles for testacc’); 
WRITELN(%wnat do you want to cnanye?"); 
NRITELN; 
AP ITELN( 71 
WR ITELN C2 
wRITELN( 73 
ARITELANC°4 
wk ITcLAs 
Welt TresDond witn single digits===5°); 
readwinteger(ans); 

END: (*4wgF) ; 


acemic action File’); 
detematctionary’); 
data ocoject file’); 
moleming” ) 3 


(KKKERE AKA EKHKEKRREKE KEKE EEE RE KKK KKK KR EE ERK KE KK ERE ER KERR KEKE) 
(KKEKKEREKEKRE KEKE RK EEK KEE KEE ERR EK KK EEK HRA KE KKK EK KA KEK EERE ) 


Pe GmpuremCHnecCK.StOp (VAR stoprun =: poolean; 
Saw crak); 


& 3 





BEGIN Grveneck Stop ) 
Meramec cm ion (C°V",°Y"*,°’n’,’h’J)) THEN 
Cac = 2 3 
case ch of 
fio) ee ed SECOrUNn 3 


: true; 
fvmeuey 92 Stoprnun 
Zz € 


= false; 

MMMrteoNC Crror try again’): 
END;  (¥*case*) 

END: (*checkKustopF) 


? ? 


(KEKEKKKEKEKE ETRE KER RARE EERE KK EK KEKE ERA KA E KAKA KER KEKE KK KEES) 
Sete CLES TCCSSSCSSTSSCES ECTS COSI CSC SSCCCL SETS TS SS SS SSC CES Tes! 


PROCEDURE const.trans; 


(* this proc builds tne trans fille disk from interactive 
input *) 


VAR 
Seer uumecesoect : boolean; 
tempiwaa,temo2ziwaa :; aawrect; 
ineint : integer; 
Suesciwpanecoar,chn ¢ Ener: 


BEGIN (¥c¢ct1*) 
stoprun :;= false; 
WITH templeaae-adwald.~transasite wG 
BEGIN (*witn*) 
Snncceespace 2 = ~" s 
Cransenun s:= G; 
END; (#witn?) 
wITH tempiwaa.aawid DLO 
BEGIN : 


cnoseqg QO; 
mEeTic := 0; 
aw ¢ C*witn*) 
wITH temploaa DO 
BEGIN 
Sica cws =. xX” 
time.val 
step.num 
naveslock. 
irene ckG.f1 
nxt 3:= nil; 
END? (*with*) 
tempo2.aa s= templidaa; 
REwRITE(trans); 


® 
g 
- 
= 
— 
@ 
9 


Q tt 
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REPEAT (¥until stoprun = true*) 
WRITELN( “YOu are entering an atomic action’): 
WRITELN; 
ARITELN(’tne last aa you entered was’); 
WRITELN 
WITH tempload,aawid.transasite OU 
MRitetindtesite 3:3,transenum :3); 
WITn templaaa,aaeld DU 
WRITE(Stonum $3,aacnum 3:3,doLr1d 3:3,metric :3)3 
WRITELN(temMploaa.tine.wval :3); | 
WRITELNC’enter the new initesite intecer’); 
READLN( Ch); 
Reema Ormccm im £°O°,°1°,°2",°3°,"°4",°5", 
: Cone oes 9” 1) ) od 
BEGIN 
Moeebewnt eer toOr try again’); 
READLN( ch) 
END} . 
WHITH temp2.4a,aanwld,transesite DU 
BEGIN an 
Siete st te s= ch; 
(*converts init site to Char for file*) 
WRITEZLN(’enter the new trans numper integer’); 
readwinteger(transanum) ; 
END? (*with*) 
wiTH temp2.aa.,aawid Co 
BEGIN > 
WRITELNC’enter new Suotrans numrer integer’); 
readwinteger(st.num); 
WRITELN(’enter new atomic action num inteder’); 
readwinteger(aa.nun); 
WRITELNC’enter new data oojyect num inteder”); 
readwinteger(dcwid): — 
WRITELAC’enter new metric integer’); 
readwinteger(mecric); 
WRITELN( ’enter r tor reaa or w for write’); 
FEADLN( CN)? 
wre mot (ch in (*r’*,°w"’]) vO 
REGIN 
wRITELNC(’@rror try again’); 
READLN( CN) 
END? 
Pewectlg <= cn; 
engseq B=..07 
ENDS (C¥witn*) 
WITH temp2.aa DO 
BEGIN 
time.va 
Ougwen s 
stat 3s 
step.num 


tee 


gS 





waves lock ¢= 
tnetoecd. £24 

Xt ese nll, 

END} (#witn*) 
ARITECtCrans,temp2.aa); 
templiaa := tempe2.aa; 


=e 


false 
$= fal 


Se 


Wee emcee r Y Or nM Lif you want to enter another aa 
READLNC CN); , , 
eneck.stop(stoprun,ch); 

UNTLE stocrun; 


(*¥tne last ad on tne fille 15 a transonum 999 Pecores) 
temp2iaa,aania.,transesite.transenum i= 999; 
ARITE(trans, temp2naa)} 

END: C*ctl¥) 


(KEKKKE KEKE ERK EE KK KEE ARERR KER KER EERE R EK K EKER AKKEKKE REE) 
(KRKK KKK KERR KEK AERA KEKE RK ERE KE SEEK KKK KER KERR KER K KEK KEKE KR AS) 


PROCEDURE Const.data.d1c}3 


(# tnis proc puilds tne data dictionary aisk fille fren 
Miecaaccive Input .%) 


VAR 
Sweourua,stOpsice =; boolean; 
Baseac,eerd 3; ctroidic; 
enpiniteastte : char; 
conum,inaint : integer; 
EPC oencext; 


BEGIN Sie) 
RENWRITECdatadic); 
stoprun := talse; 
qgqonum s= i137 
ARITELNC’enter tnis sites numpereinteger’); 
nEADGACIinitwsite); | 
APITeLu(datadic,initesite)? 
REPEAT (¥until stoprun = true*) 
Seoesite f= ralse; 
REPEAT (¥*¥until stopsite = true*) 
BRITELN( “note : enter a 9 if gata item not used’, 
Daa. aul.” ); 
White “enwer a site sor data item °",aonum : 2); 
READLUNCIinitasite): 
Wee eecdatadic,init.site); 
Ik unitcsite <> °9% THEN 
BEGIN (¥*7#) 
WRITELN(C "another site for data 1tenmn °”, 
Edemune. 2,0 2°) 
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AKITELNC°’ answer y or n°); 
READLN(CN) 3 
checkistop(stoopsite,cn); 

END (*7%*) | 

ELSE . 

Scopsite 3:= true; 
UNTInu stopsite; 
donum s:= qonum +13 
meLieiwedatadic,”’x’); 
Voie CG concanue With Gata item °*,donum : 2,°2°); 
WRITELNC’answer y or n°’); 
KZADLN( CN); 
Sheakeaseou Cc SCOpPrun, ch) > 

UNTIL stoprun; 
END: 


CERKK KKK EEE KKK EAR EEE RK KER KKK ARK KARE KEK KER EKER KE) 
CERKKK SEK ERK E RRA ESKER RK RK RE KEK ER RAK RRR RRR RK EKER KKK ES) 


PROCEDURE const.do; 


CF this ouilds the data object tile from interactive 
inout *) 


VAR 
Weolivemat sinteger ; 
stoprun : boolean; 
ones -enar: | 


BEGIN (*1*) 
ee 
Svoprun <= faise; 
REWRITE (€900)); 
REPCAT GFUMELI stoprun = trye*) 
VWeenenimo-emter che mn value for da&ta object ",1 : 2); 
readvintegerlinwint); a 
WROTE ENC dopt,ineint); 
WRITELN(’ answer y or n if more do.s to enter’); 
READLN( CN); 
EneemeactooGs:oorun, cn) } 
f= ire 1G 
UNTIL stoorun; 
END: (*1*) 


CER KKREKEKREKK EERE EER KEK AREA KKK EEK K KKK KERR KKK EEK KKK EK ERE) 
Ses eS CCPC SSCS SCS SSSSLC SECC OOCSCSCSSOCLS SSCS SSS ST SLES SSE SEES 


(* main for program olads *) 


BEGIN (¥*1¥*) 
REPEAT (¥*¥until stoerun*®) 
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ecorrect-:;= false; 
2s 1; 
WHILE correct = false DO 
BEGIN (*2*) 
write.query(ans); 
IF Cans in (1,2,3,4]) THEN 
Correct 3= crue; 
END; (427) 
Case ans of 
tse DtGiN 
const.trans 
Grensaper 
ENDO; 
eOmstecactaadic! 
SCOnsta.c0),; 
ai= a? i; 
(*caseF*) 


; 
= nil; 


we WW AN 


END 


WRITELNC’mMore changes? answer y or n’);3 
READLNN( CH)? | 
cneckastec(stoprun,ch):; 
Pani stoorun ; 
END, (#*1¥*) 


(EKKEKEKKKKEREKE RE KEK EAE ERKE EES ER RK ARKKK KARR RARER ERE KE EK) 
(EKER EKK RAKE KEKE KEKE KEE KEE ERA ERR ERK RRR RK KERR RK K KK REE KE KEKE) 


CKERKEKKKKRKKKRKAKAKTAEE RRR KEE EKER KKK EKER KE KR KKK RK RRR RK ERK) 
CEERESKAEKRKEK KKK AERA RAE AKER KE RARE KK EKER RK KERR KR EK HKE ) 


CINHERIT C(“sysSliorary:starlet’),&ENViRUNMENT ("bullds.pen’”)] 


MODULE 8 (Cinput,output,audit,data,runfile,trans,dataailc, 
GOoj)); 


(* this moaule creates the glonal procedures *) 


TY Pe 
zINCLUDE “’Strtyoe,cas /nolist’ 


VAR 
SINCLUDE ’strvar.pas /nolist’” 


(FERRER EKEK EKER KER ARE KR KK RE KEKE KKK AKER AKER EERE KEK KER ERK EX) 
(KEERKEKKEEKRE KEK EKER KEK EKA EK KKK KK EEE EK KK KEK RK RAK ERK) 


(GLOBAL) 
PROCEDURE bldtx; 


Gem iivomprOocCmouilas the trans structure Erom the recore file 
Erans.eaat * ) 


58 





VAR 

| Dase@t, Curt $: ptr.trans:} 
curst,basest : ptr.sStrans; 
curaa,caseaa : ptr.iaa; 
tempaa,tempaaz : aderect;? 


(ERAT ARERR EE KER EKER RE ER RK KER REAR RAK KEKE EE KEKE ELSE) 


PPPOCE DURE a@at (curt : ptr.trans: 
tempaa : aa.rect); 


C*¥ fill one trans record with aata *) 


BEGIN (¥*adadt*) 


Curt, Stadty <= v0; 
Gupeamexecsf£ig $= false: 
Sr tamometr.dtyvy $= 03 
Sumcuwesclrin.gty := O03 


Otte etreansaecnaptr := nil; 
PUmememamseasitcee.linitasite := 
tempaa.aanwid.transasicte,initusite: 
GWRt .chansaSite.trans.num = 
tempad.adwid.transesite,transanum; 
eureccwmxcy.= Nil; 
END; (€*adat#) 


(KKKKK KARTE RE RK RK RE ERE RE EKER EERE KEK ERK KKK SR AK KEK KKK EEE EEX) 


PROCEDURE adast Ccurst eo the S Cras ? 
tenpaa $ aaereCt); 


C* fill one subtrans record witn aata *) 


BEGIN (¥*adast*) 


GUGSs caso Leto = Cempaa.adwuld.st.num; 
Sigstacsacaqcy := Uf — 
Glnoee taal trqtyvaes= 0; 
Gumotessa-fin.gty = ov; 
GUrsts,@xeciflg := false; 
elimsibemtorkatig := false; 
Gueseensteenaptr i= nvrl; 

eiiasitieamxe <= nil; 


END: (*addast*) 
(KKKKKKRK KR KKK KKK ER EKER EK E KKK KEK KERR KE ERK ERE EK EKER KK EX) 


PRUCEDURE adcaa (Cured $ Dtreadd; 
“tempaa $3 aaerect); 


Wao weene atomic actton recore™witn data *) 


8% 





BEGIN (*addaa*t) 
Suradae.adanlad $= tempad.aa.ia;: 
curaa®*,stat := tempaa.stat: 
GUrea~.time.val := tempaa,.time.val: 
Sumaaeest@oanum := OF — 
curaa® navewlock : 
Giinde” .1nalLOCKgQsfilg 3 
Sumaseenxt 3= nil; 
END; (#addaa*) 


« 


(KERKKRKKE EKA AER RRAKR EK REE RK EKER K EER K RAR KEKE ERE RRR K KE EKER) 


meiain Loop for blidtx*} 
BEGIN (*14) 
— READCtrans,tempaa); 
tempaa2 := tempae; 
NEwecurt) } 
Ememeaptr :=curt; 
paeeie f= curt: 
adat(curt,tempaa); 
NEw CUFSC): 
Baciese c= Curst; 
aadst(curst,tempaa); 
Suimeeriscaaty t= Curt*.st.aty + 1; 
NEaCcuraa); — ; | 
paseaa := curaa} 
aadaa(curaa,tempaa); 
Suinsimeeaeecqey := curst*.aaaeqty + 1; 
Smamcertresstaptr ¢= curst; 
Sumeteweaerur <= curaa? 
READ(trans,tempaa); 
aHILE not eecf (trans) DG 
Z3EGIN (¥*2%) © 
If tempaa,aawid.transasite.transanum <> 999 Then 
BEGIN (*3*) 
IF temodaa, aawia.transesite.transanum <> 
tempdaz2.aaalid.transasite.,transanum nen 
BEGIN (*44) 
HemGcunt)? 
aadt(curt,temnpaa); 
baset*.nxt °= curt; 
NEwCCcurse)> 
aagast(curst,tempaa); 
Cumewesceageyet= CURC>S .steqty + 1; 
Giintonsc alc GacemGur Ss i: 
NEw (curaa);3 
addaa(curaa,temcpaa); 
Sumste eeaecdev 1s CUrSt”,.aeacqty + 1; 
Curst -.aecctr s= curaa; 
paset s:= curt; | 
pasest $= curst;3 
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; 
bee 
7 


a 


4) 


1 siviivy 


baseaa := curaa:; 

tempaa2 := temoda; 

READ(trans,tempaa); 
END; (4%) 

lr (tempaa.aatid.transusite,transenum = 
tempaa2d,aanla.transsite,transanun) ana 
(tempaa,aasia,stanum <> 
tempaa2.,aasia.stantn) THEN 
BEGIN (¥*5*) 

New(curst); 
aadst(curst,tempaa); 
GUrteestaeduy «= Curt, SE.Gty + 1]? 
Saslesca sake °2 Curse? 
NEw(cureda);} 
addaa(curaa,tempaa); 
Gms t-.aadeaqty $="-Curst*,aacqty + 13 
SWesmewde.ckr $= CUuraa; 
basest := curst; © 
2paS@aa 3= curaa; 
tempaaZz i= tempaa; 
KEAD( trans, tempaa); 
END? (#*5*) 

It (tempéaa.eansia.trans.site.transanum = 
tempaa2.daaia.transusite.transanum) ana 
(CeMPda,aduldeStanum = 
tempaad. aaeiaeStaNtm) THEN 
BEGIN (*6*) 

NewCcuraa); 

adaaa(curaa,tenpaa); 

Gases. GaeGqghy $= CUrSt”,a@asaty +13 
baseaa“.nxt := curaa;: | 
baseaa := curag} 


teMpaa2 := teinpaa; 
READ( trans,temoaa)? 
END (*6#*) 
END (*3%) — 


END (‘Sa *) 
END; (¥1*) 


CEREKEKKKAKHERAAK EKER KEKE RAE KERR KR ERK ARK A KKK KK KKK EE KKK EK EEX) 
(KEKE EKER RARKKE KARA KEKE RK KKK RAK SRK K KERR KEKE AKA EERE KE RES) 


(GLOBAL) 
PROCEDURE blddic; 


(* tnis proc puilds the data dictionary structure 
from tne text file datacic*) 


VAR 


Daseapeuro < ptr.dic; 
i: integer; 


=) 





ch s cnar; 


at 
# 
> 
Ly 
ww 


CFE KKEKREEKAKKEE KHER REE RK KERE RHE EK ERK K EK EKER KEKE KERR EE RR KE 


PROCEDURE addd (curd $ ptradic; 
Gn s Ghar); 


(# tnis proc fills one aata dic link node with dara) 


BEGIN (*¥a1l*¥) 
Gurd= s.te.id := 
Siegen axt. <= nil; 
END; (¥al¥) | 


cn; 


CFEKKKK SRE ER KEKRE RK EK ERE EKER EE ERE EEK EEK EKER KEKE EEE KK KKK KE KH ) 
(* pegin main Orogram biadic #*#) 


bBEGIi (*¥1*) 
PeReel s= 0 to 9Y DOU 
Giesartayti)] := nil; 
NEW(Cdicwarray(0J]); 
dveaag@ernay (Oj 7 snxt := nil; 
READLUN(datadic,dicwarray(C)“*.site.id); 
ie 1; 
WHILE not eof£t{datadic) Da 
BEGIN (¥*la*¥) ~ 
IF not e@ot(aatadic) fHEN 
RKREADLUN(dacagic,cn); 
IF cn <> °9°% THEN 
BeGIn (¥1ic%) 
NewCdicsarraylil); 
basi Gus= dicawarray([il; 
emda = dicwarray(ii;> 
addd(curd,ch); — 
END? Ge lp +) 
mamteeGecty > °x~) and (not EGot(datadic)) vi 
BEGIN (*2*) | 
Ie noc eof(datadic) Tren 
RE ADLN(Cdatadic,cn); 
IF (ch = °9°%) THtn 
BEGIN GF? ,5*) 
dicwarraylij f= ni 
READLN(aataqic,ch);} 
END CH2.o*) 
ELSE 
Peecchm<> x7) TREN 
BEGIN (*3*) 
NEwCecurd): 
eadetecurd,ch) : 
baSeqge.axts.= Curd; 


1; 


oe 





bDased s:- Curd: 
END; (* 3%) 
C¥2* ) 
ae 
EHD? 
END? (*1*) 


EW? 
(*ia 


CEREKKEKKRKE KKK KKK KE KERR KKK KEKE KKK EEK KKK KR ERK KE RARE ERK HEE ESE) 
(HHKKKKEKEKRKKRKKK KEE RK KEKE KK KK KR KEK AER KE RK REE KEKE ERK EK EXE) 


(GLOBAL) 
PROCEDURE addoneandat (VAR curecneptr : ptr.ch); 


(* tnis Dprocedure adds a neader ang trailer to tne invut 
Gometrice nistory iist *) 


VAR 
Sieanceeeer, GVLPtr =« ptr.cn; 
Dgiteecmeper £ Otr.cn.pair? 


BEGIN 

(* nuild neader #*#) 
MevGoutrcenoetr); 

Huemcweert .saan2d,trans.site.initesit 
One Charctr edaé.ic,trans~site.trans nun 
Siiceermeour- «ae ia.st.num := 
OU Gceemeetr”,aa.id.aanum 

CWnemeimnemcr edadelc.radafllg 
Bueeeneotr- .aaeaid.do-id := 
Suteenectr .4a—-id.cneseq : 
ite cdee tt .daaid.metric : 


© 


= 
tb ou 
6 
roy 


(* puila header oair *) 
WEN DOUtKCh.etr); 
Gmememeotre.sfelroptr := Foutech.ptr; 
pougeeveptr-.ad.ic.etranssite.initsit 
poMmemeneorrn.adaid.trens.site.transonu 
Souuecneetr~, aga idestaonum := v 
PoleEeNectr*.adelads@aanum := G 
DeGeoteote .aaald.raweflg : 


3 @ 
uot 
8 
i 


e te *e 


0 


Poutocnaoptr*,aaneic.dowia = 0; 
poutecnhaptr*.aaaia.cnasedq 35 U; 
Soccer ekh .a4aoid,metric 3= v7 


poutscheptr*.metric.sum at) ¢ 
(+ adaetive header *) 
Outechoptr®*.nxt := Ccurech.ptr; 
CUrSeCNOPtr := Outecheaptr; 

(* oulld trailer *) 
NEMeoutcoecmeOcr)> 
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outachaptr®,aawid.~transesite.initesit 
OutTAcnoptr*.adanid.,trans.site.transonu 
Suemonemer-.aaiid.Stunum := 0; — 
out.ncnptr*.aawid,aaenum $= 0; 
outecneptr®.aauld,.reaweflg : 
BUcechmctro.aaoicd,doid i= 
PigeGeeethe.eadaidecheseq = 
pote erecrre.agdaid.metric 3= 
OUTACNAPtTr®.Nxt $5 nll; 


=} ® 


( 


(* puilla traller oair *) 
NEwCpoutwchaptr);} 
uceaimcere~OdLroDtr <= poutech.ptr: 
Boueeecnepter-.,ad.id.transesite,iniztsite : 
pelicmene= ptr: ,.4aenid.,trans.site,.transanum : 
PoumEeneoctr-~.,@eacia.stenunm := 0; 
PoOuemenectr >, a4a4oi1d.eadenum := OF 


i eae 
IFS; 


pouteereptr .adia.rawoflq 
Pcie ciepeh «e44—L0.0d0.2id $ 
BouicweneOtnr~,aa.id.cnase 
BouLtecnaptr~.aaHla,metri 
Podeeenaptr”.metric.sum 


eo M QD 


(* ada tne trailer *) 

avenger es= CUrLChH.ptr ; 

BimerueetCVIiptr™ nxt <> nil oO 
ever s= EViptr™.nxt? 

Mm epmmeaixt f= Out.choptr? 


END; 


(KRKKE KERR A EKER KAS EHR ERE TERK EKE EKER ARK KR KEK KARR REE RK ET SKE EK) 
(KEKKKKKERE KEKE SKK KEK RK ERE RE KKK ARK KE AKAK RAK KR EK RAKE RAKE KX ) 


(GLOBAL] 
PROCEDURE blado; 


(+ tnis psuilds tne data onoject structure from tne integer 
eile depoj,aqat *) 


VAR 
i. (integer; 


BEGIN (*1*) 
Poke: =- 1L to 99 vO 
Gg@eearraylij] := nil; 
- = 
AHILE not eo£ft(donj}) vO 
BEGIN (*2*) ; 
NEW(dowarray(il); 
KEADLN(dobJ,doOsarraylill*.nacnt); 
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(f¥add a nedader ana trailer record to a.o, ch#) 
dowarraylil*.cnoptr a oe 
aqgaaona—end.t (dowarraylij*,cnoptr); 


Lei, GO,0, perm rec ftieldas*} 
doeahnaytij=.,tV.etr 3= nil: 
Soeogmaytd lo ~.OCcKkK=q-ptr := nil; 
dowarrayli)*.nowreads 
aowarray(i)*.nowwrites 
Heeannayliljqg.,,eck = £ 
Geesanrevcil=.g.cnt 3= 
donarraylij*.lockigty 
Boeadreavyrij”.cn.jseq : 
oes ior it 
END; (*2*) 
ENDs (¥1¥*) © 


se © oe 
{i =e f- ws ff 
nm 
. , 
=e © we 
we 


a 
-— 
we 


© 
=e 


(KRKEKKK KKK EEK ARERR KEK EK KEKE KEKE EKA KK ERE KEK KEK KKK KEKE KERTH) 
CREE RRKEK ERK ERT KKK EERE TAR KK EK EK KKK K AKA RK RAKE KEKE) 


(GLOBAL) 
PRUCEDURE enterstimeicelay (VAn timesdelay : integer); 


(# tnis precedure requests as input an integer to act as a 
delay value *) 


BeGIN 
WRITELN; 
ARITELN (’Enter an integer for a timeedelay constant :°); 
READLN (timecaelay); . 
time.delay := ABS (timecdelay); 
WRITELN; | 
WRITELN (’The timeedaelay constant is’, tinectdelay); 

END: 


(KEKEEKKEE KEKE REKRKAKKERKEREKEE PRE REE KKK EKER KEK EK EK SAEK KEKE) 
(KE KEKKK AKER KEKE KKK AK RE KKK KRM KE RE KEKE KEK RK RR RAKE RAE KE KH ) 


(GLOUBAL] 
PROCEDURE enter.random.seed (VAR seeq : unsigned); 


(* tnis proceaure requests aS input an integer to oe used as 
the seed for a random numoer generator #) 


BEGIN 
AR ITELN; 
Weiteme C°Enter an integer to act aS a seed for tne’, 
*“ random nuiwber generator :’); 
READLN (seed); 
aRITELN; 
NRITELN (°The seed value 15°, seea); 


=) 








END; 


(ERE RKE EK EKKE ERK E ER REE E EK RAK KA KEE ERK KKK EK ERK EKER KEE EEE) 
CRKRK EKER KKK EKER KEE RK ERE KEK RR ERK RE RK EK KKK ERK KKK KART HRERS 


(GLOBAL) 
PROCEDURE ChecKastop (VAR stoprun ;: soolean; 
Gh. s tehar): 


(* tnis reads a character from tne Keyooara ana daetermines 
if input should stop or continue *) 


BEGIN (*eneckuston*) 
moeevormecen imei?y",°%¥"°,°n’,’N’)]) THEN 
GCart= 2°? 
case cn of 
eens he MSCODTUN AS 
Vey > 3 Stoprun ; 
oof [ew leuwe error try again’); 
END; (*¥case*) 
END? (C*cneckK.StonF) 


(KEMKEK EKER EK RK ERRKKE ERR EERE RRA KE ERE RK ERE EKA RARER KEES 
(CER EKAERKEKEK EEK EKER EK KEKE KEE RE RK ET KK KER KK KEE ER EX) 


LGLOBAL] 
PROCEDURE readwinteger (VAR num sinteger); 


(* Tnis reads an integer from the terminal in char format 
and @dits it for typ@. It loops error msgs until a leaal 
paceger 15 input*) 


CONST 
Bpeqaset = {°0°.,°9"l? 
maxintdig = 10 : 

VAR 
lines array [(1.,.80] 9f Cnar; 
index,lengtn ; integer; 
good.answver : boolean; 


BEGIN 
good.wanswer s:= false; 
NHILE not good.wanswer DO 
BEGIN 
nncdex. = 13 
READ(CLine(.~index.))? 
WHILE notCline(,index.) = ° %) and not eoin 
ana (inaex < maxintdig) DO 
BEGIN 
index := index + 13 


sie 








Boao CLinet, inaex.)) 
END; 
REAULN3 
lengtn := index; 
gooa.answer s= Cindex > 1) or 
MemclinetC,index,) = ” *):3 
FOR index := 1 TO lengtn vo 
good.wanswer s= goodaanswer and 
UlinecCeindex.) in goodset); 
IF not gooduanswer THEN 
CEGIN 
FOR Index s;= 1 [G lenytn DO 
WRITE CLine(.index.));3 
WRITELN(’Ls not an integer’): 
weiTcuNn(’please input again’) 
END 
END? (¥wnile*#) 
Home s= UF 
POR index :;= 1 TO length 090 
Giese Mum * LTO + CoraCline(.,~index.))-ord(’0”)) 
END; (*#proc*) 


CKEKKRERTEKRE RE KER KEKE RKKA KER ERK ERK KERR KERR EEHK ERE KKK KEKE EEK RES) 
C EKER REAR EER REE K ER KK KE KEK KR KARTE KE KKK KEK KKK RES) 


meUCEpURE write.query (VAR ans : integer); 
Soonts “rites, the terminal output tor bidachtv *) 


BEGIN (*wq*) 
Seimebwe° this proc cullas temp vers and conflict hists’); 
Boren fOr Cests’ ); 
ARITECLNC? wnat do you want to ou1lda?’); 
WRITELN? 
Mmirein(C*’) : a temoorary version’): 
fepeeec . a conrlict history pair’); 
Bei MeLNC 73 : nothine’); 
aRITSLUNS 
WRITE C’respona with single aigit===>") 
read.integer(ans); 
END: (¥*wqt) - 


“=e 


(KKEKEKKKEEKEKK KEKE EKER EERE KKK KK KEKE KKK EK KEK ERE KE KKK KKK) 
(KKKKREKKEEKEKKKEK KEKE SEK EAR KEKE REE ERK KAKA KKK KEKE SKK EE EEK ES) 


(GLOBAL) 
PROCEQURE savcntv; 


@eythis constructs either conf hists or temo versions ana 
outputs the data to file Nruntile" FOr Seat y) proc 
concntv.pas DD 


oF 


: 
“4 









const 
aa = 100; (#dummy const*) 


VAR 
ens cher?) 
ans,a sinteger; 
correct,stoprun : boolean; 
GUT GY se PCr atv; 
Curcn : Stren; 


CE RKKAKK KA KEKE EER ER EKER EERE EK ERE REE KK ER KE RAKE ERK RK KARE EK ) 
PROCEDURE writewcn Ccurch see cUrech).. 


Bememao writes t6 file runtile for constructing cn ana tv 
Seructures *) 


VAR 
tempoair ¢: ptrach.cair; 


BEGIN 
MemOgarr s= Curen*.pair_ptr; 
me pecrun=ile,curcn@.aaia.transesite.initesite): 
PonpeerCmuneile,curcn”.aa.icd.trans.site.trans num): 
WARiTeun(runrile,curecn*, aaala.sstantm); 
We cee eOrUnLSLLeG, CUrCH* .a€anldeaaaeNn)} 
ToPeomeeruntile,curcn* ,.aa.ldsereadijtlg); 
Wert unc. le, Curcn”.adwid.adw1a); 
we lo ime runtiie,curcn*,.aa@i.l1aecnaS@eq); 
WRETELN(ruUnftile,curcn*.aaeia.metric); 
Wel teercrunciie,temopair*.aawid.transasite.initesite); 
WRitoun(runftile,temppair*«aaid.transesite.transnun): 
HRITSUN(runtzile,tempoair*,aanid.stunum); , 
WRITELN(runrile,temevair*.a4a4nid,adacnun); 
SRITEGN(runtile,temeovair’* adaeid.radauflg): 
ARITELN(runtile,temppair*,aanid,dowia);: 
ARITELNCruntiie,tempoair*,.aaeid.cniseq) 
MeLT sont runtcile,tenpoair*.aa.id,metric) 
sRiTeuUNCruntiie,tempopair*.metric.sum); 
END; (proc writeoicnt) } 


~e we 


CKEEEKKKKEKRKEKEKRT ETE ER KER EEK ERK EKER KRE EKER ER KEKE KK EKER KEKE RES ) 
PROCEDUKE const.wtempyv (VAR curtv ; otratv); 


(* this constructs a temp ver trom Parameters ingut 
interactively and places the data on tile runaata.,aat *#) 


VAR 


inval : integer; 
eh : enar? 
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memaves DCr.tv? 


SeGiIn (*17*) 
NEaCecurtv); 
Peon cruntile,’t’)3 
ARITELN( enter the init site number’); 
READLN(Ch)3 
memeenoc Cel Lh £70771", °2°,73",°4", 75", 
aoe) cc, 95) po 
SEGIN , 
WRITELNC’error try again’): 
READLWCEN)? 
END; 
ARTTELaCruntlie,cn); 
WRKITELN( ’@nter tne trans number’); 
readwinteqer(curtv*.aacid.transesite.,transanum); 
WRITSON(Crunftile,curtv*.aasid.trans.Site.2rans—nun); 
#KIVeLAC’enter tne sub trans numoer’): 
PeaGermcecerccurtv*.aawid.eStenum); — 
HARITELNCruntile,curtyv*.aaewid.stanum); 
WRITELN(C enter tne atomic action number’); 
readiinteger(curtv*.aasld.daanum); 
MePremn(runtile,curtv*.aaelta.aaenum); 
ARITELN(’enter tne read write ror ww tlag’)3 
RE ADLNC(Ch) 3 
wiepemmee CCN in t*r*,°w"j) Du 
BaGIiNn ; 
metenn€ “@fror try again’); 
READLNCEN);3 . 
END? . 
Welibe@n(runtile,cn)? 
ARITELNC’enter the aata obj numoer’); 
Pemaeenteger(curtv*.d@a_id.dowia); 
eieoeemecruari le, curtv",.aa.id.aouid); 
WRITELN(’enter the conf vALiSt seg number’); 
pedgemneegertcurtyv".aa_ia.cneSéG); 
Meo bemrcruntile,curtv".aa.id.cniseq); 
ARITELN(’enter the metric numper’); 
Peddewnreger(curtv*,aa.ia.metric); 
Art lomumoruncile,curtv*.aa_id.emetric); 
ARITELN(’enter the metric sum number’): 
BeaGormeeger(curtv”.metric.sum); 
MoVpeeerumMrile,curtv*.metricu.sum): 
Petey ( Sencer the status field char ,W,¢,x’); 
READLN(Cn); 
wimememoc Cen in (°r’,°w"’,’°c*’,’x’s) DO 
BEGIN 
WRITELN(°error try again’); 
READLN(CN);3 
END 3 
AKRITELNCruntlile,cn); 


Sl, 





END; (*1*) 
CREEK KKEKEKE KEE EKER KEE EERE RRR KAKA RAK RRR ER KERR KERR RR EEE EKER EE) 
PROCEDURE consteconnist (VAR curen : plrach); 


(# tnis constructs a cont nist from parameters inout 
interactively and places tne data on fille runfile.det *) 


YAR 
invail : integer; 
Gime CN aitte? 
@PeMpcn +: ctr.cn; 
temppeir <: ptr.cn.ealr; 


REGIN (*]*) 
wewCcurcn) 3 
Nea(temprair); 
pet omic runtile,’c*’); 
Sree st t= nil; 
GUuUrCtHe nw oCamrcptr <= temppair; 
WRITELUN(C “enter tne values for tne first cn pair nemoer’); 
ARITELN(’enter tne init site numoer’); 
READUEN( CN) > 
Mumm tc Gen in [°0°,“1°,°2°,°3°,°4",°S’, 
‘ Meee fog 9 DO 
BEGIN : a 
WRETSLNC“@rror try aqain’):; 
READLA(CN) 3 
END s | 
SUrGH aaeoidetrane site.init.sive := cn; 
aARITELW(’enter tne trans number’); 
rea@emincecger(curchn* aawzid.transesite.trans.num); 
SreebeoN( Senter tne sub trans numoer’); 
peace intecer(Ccurcn® aai_id.st.num)} 
MeL TEGN( %@nter tne atomic action number’); 
reaqwinteger(curcn’*,aawideadanunt); 
MRITELN( %@nter tne read write ror w £14a9°); 
RKEARDLN (CCN) > 
Wiwmemmote (Cm in t°r’,’w’)) OC 
ooGIn | 
WRITELN(’error try again’); 
REACLN( CN)? 
END; 
ewrRen- ,aabtda.r_Woflg i= ch; 
ARITELN(’%enter tne data ofj numoer’); 
read.integer(curcn®.aagid.dowid); 
ARITELNC’%enter tne conf nist seq numcer’); 
mede@—-integer(curcn®.aacid.cneséG); 
ARITELN(’enter tne metric numper’); 
peadeinteger(curcn*,.daawid.metric); 
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END 
{ ** 
PRO 


( * 


YAR 


BEG 


ARITELN(C enter values for tne second cn pair memnner’); 
WARITELN(C*%enter the Lnit site numper’); 
READUN(CH)? 
Wee Ot Cch in (°0",°1°,°2°,°3,°¢,°5"%, 
ce er SOs) DOU 
BEGIN : 
ARITELN(’error try adain’); 
REAQLN(Ch); 
END? 
temppalir®, aanid.transasite.,initesite i= cn; 
ARITELN(’enter the trans number’); 
readwinctceger(temppair* aansid.transw~site,transanum); 
WRITELN(’enter the sup trans numeer’); 
readwinteger(temppalr*.aaeica.stanum); 
WRLITELNC’enter tne atomic action number’); 
readwinteger(temppalr*,aasia.aaonum): 
wWRITELN(C’enter tne read write ror w flaa’); 
READLUN( CN); 
Aceemneemoct CECMmein i*r",°w’)}) LO 
BEGIN ; 
WRITELN( “errer try again’): 
READLN(C CN); 
END; 
wemovalr” ,2aa._ild.rawetl@qe $= ch; 
WRITELNC(’enter the data obj numcer’): 
readwinteger(temprair*,aacicac.aqoeia); 
WRITELAC*enterwetn® cont nist seq number’); 
readwintecer(temooair® aawidag.cn.sea)? 
WRITELN(’enter tne metric numoer’); 
readwinteger(temopalr*.,agald.metric); 
w#KITebac’enter tne metric sum number’); 
reaaqawinteger(temoppair*. metricusum); 
; 69( F1 *) 


KEKRMRKAKKK ARE RKE KKK KER ERE KK KKK SARK KKK KE KRK KEKE REE KEE KR ESSE) 
Creetre eqcecomhnist (CWAR CcUrCN : ptrech)? 


CamompeeGeaaes the newly ourlt conf nist te tne 
BWigue.cat file <*’) 


Sureres) Oth trans? 

€urse ¢ ptrustrems? 
temech,folen : etrcns 

Pemeeve: Piletys 
midoeinvab,i@er,inst = integer? 
instee, cn 3 Char; 


IN (*1*) 
AKRITELNC’this places the new conf nist in a place’, 


Ped 








@ 


ARITELN(’S 
WRITELN;? 

WRITELUN( %2 
ARITELN(C°%2 
ARITELN( 73 
WRITELNC%4 
ARITCLA? 

Ar L Teo vr 


Of your cnoosing”); 
elect wnere you want the cont nist to 40°); 


wee oO -adatarcolece=z>soorted oOraer” ); 
, COM ascusmrransaction’); 

2: to a temo version’); 

Peso ransdaclOn « ); 


espond witn a single digit ===>°) 


™~s 


read vinteger(inval): 


WHILE not 
oiGIwn 
wRIT 
read 
EMO; 
WRITELN Cru 
case inval 
Lk Sere 


Cinval in (€(1,2,3,%)) vO 


EUNC°error enter again’); 


-integer(inval); 


pglle, invedl); 
of 
IN (*¥¢e1#) 
WRITELN(’type which data oo} gets tne conr’, 
eo hus: * ) 5 —_ 
readulinteger(inval); 
WHILE not Cinval in (1..99]) wo 
BEGIN  (#2,5%) 
AKRITELN( °error enter again’); 
reacdwintecer(inval); 
END; Ce Zao” ) 
IF dowarraylinvalj = nil THE? 
WRITELN( “data obj not in use do over”); 
WRITELNCruntfile,inval); 
ME Peesent(curchn) ; 


END; Ge 


2 fe oes 


In (¥e24) 

WRITELN(’ you are placing a cont nist in a’, 
fet sito crans)? 

Aree CO CAPES Ehe init site for this cont’, 
eens e:) ft. 

READLUNCinsite); 

WHILE mot Cinsite in 1°0°,°1°,°2°,°3%,°4%,°5"%, 

ae 3 od 


BeGIN 
AKITELN( °error try again’); 
READLNCinsite); 

END? 
ARITELNCrunftLlle,insite); 
WRITELN(’enter the trans num for this cont’, 

em inest ©): 
read.winteger(intr); 
WHILE mot (intr in (1..99)) Do 

BEGIN 

WRITELN(°error try again’); 


PO2 





7 
7 


beads 7 heGcerGintn): 
END? 
WRITELNCruntile,intr); 
WRITELNC enter the suo trans num tor tnis’, 
iercont nist °)3 . 
readwinteger(inst); 
WHeibe moc Cinst in [1,..991) DO 

BeGIN | : 

WRITELANC’error try again’); 
readwinteger(inst); — 

END; | 
ARTPEOCN(Cruntile,inst); 
MeeteoenCeurcn) ; 

END; (%2.%*) 


BEGIN (*3*) 
WRITELN( “you are placing a conf hist in a’, 
Ee ecemo ver): } 
WRITELN( “enter the data ooj num for tnis’, 
COMcua St). 
reaq.integer(indao); 
Meroe not C€indo in l1..99)) oS 
BEGIN | ; 
WR ebNt error try again’); 
readeinteger(indo); | 
ENG 
WRITELNCrunfile,indo); 
Aenea nter tae inlet site tor this contr’, 
eyes C200): 
“READLNCinsite); 
meee Cinsite in (°U",°1",°2°,°3",°4+°,°9", 
7 Veen ee 69%) DU 
BEGIN . ‘ : 
WRilteiNe @Fror try again’ ); 
READUN(insite); a 
END; 
WRITELN(Cruntile,insite); 
WRITELN(’enter the trans num for this cont’, 
| Worst)? 
read.winteger(intr); 
Wietoboemont €intf in (1..99)) 00 
BEGIN | | 
WRelAGUN( “@rror Ery again’); 
read.winteger(intr):. 
END: 
ARITTeEba(Crunzile,intr); 
WRITELNC’enter the sub trans num ror this’, 
. -* come hist’); 
readqwinteger(inst); 
wHibe not Cinst in (1..9913) DY 
BEGIN — ; 
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WRETEGNG@ error try again”); 
readwinteger(inst); — 
END} : 
WRITELN( runtile,inst); 
fmbeteach(Surch) ; 


END} (*34) 


4 : BEGIN (*eo4q*) 
Cor peuuemy oul ware placteg a Gant hist 1n a’, 
eaans so) , 
Orelici@k( “enter the init site for this cont’, 
Pomrniet:) : 
READUNCinsite); 
ee me OcmeGlmSee= tn oUt 14, ° 2", 73°, °4a" oot, 
; Cobre joa ease aaa’ J). 
BEGIN ; | | 
WRITELNC%error try again’); 
READUNCinsite); 
END? 
Cee Cruntile, insite); 
ARITELN(C*@nter the trans num for this cont’, 
Paeni st <) 
readeinvecer (intr): 
Aiebeenoe Cintr in (€1.4.99])- Do 
BEGIN ~ : 
WKRITELN( %error try again’); 
reaaqninteger(intr): — 
eNO; 
WRiEmeLN(runtile,intr); 
Me ieecen (curch)} 
END? (*4,*) 
END: (#case*) 
BHD CFE) 


(KEKE KARSK EAE ESE RE KREKEKRE RRR KEK KE KA KKK RK KEKE KER KERR EES) 
(* main ioop f0r saventv *) 


BEGIN (*1*) 
rewrite(runftlle); 
REPEAT (¥until stoprun*) 
correct := false; 
as= 13 
wHILE correct = talse DO 
BEGIN (*2#) 
write -query(ans); 
IF Cans in (1,2,3]) THEN 
correct $= true; 
ENDS (*2*) 
Guimey $= nee; 


104 





Guneh. t= nil; 
case ans oft 
mee wCOnSeacempVCCcCurty) : 
2: os@&GINn 
Some weeconnisSe ecurcn)? 
addjconhist(curcn); 


END} 
as 2 t= a + i? 
END? (*caseF) 


Seen e TMOre temp vers or cont nists : y or nn”); 
READLACCH); 
eteem stcoCstoprun,cn) } 
UN Loestoprun? 
END? (*#1*) 


CHK KKREKKKKEKE RAKE REE KE EERE EK KEE RRR EEK RR K EKER KKK KEKE KE KEKE) 
(KK KKEKAK KERR AE KKK KEE KE SERRE KER KARE KE EKE KK KARR KK ERK ERK KR EX) 


(GLOBAL) 
Be OCEDUREScCOoncntv; 


Deets Gomstnuces C€Llther eonft nists or temo vers from tne 
qdata in file runfile entered in oeroc saventv #) 


Sons & 
a6 = 100; (¥dummy const) 


VAR 
Wirslece,en : Char? 
aner@,inval,inao,intr,inst,ans,a :sinteyer; 
Climo rt a 
Sure. otlecn, 


CEREKKERREKRKKE KEKE RAKE KEKKE KEKE EKA EK EKER KK KER EK KARR KARE RS ERE R ZS) 
PROCEDURE constatempov (VAR Guriuvee. PCrety.-. 


(* tnis constructs a temp ver from parameters input from 
file runfile *) 


VAR 
ava, Lntecer; 
eh : enar; 
POMOC Vem. pclatY; 


BEGIN (¥1*) 
NE wCeire ty) > 
CUmevemEyeecnoctr £= nils 
CUreveanxc s= nil; 
Rowe omc runci fey curtv* .adgeia.trans-site.initusite); 
READLN(runfile,curtv*.adaid.transasite.transnum); 


POS 





peeaimeonunt it le,curtv”,aaiid.stantim) ; 
READLN(runftile,curtv*.aactid.aa.num); 
Moab imenruinccleé,cCurtyv™,aacid.row.fla); 
READLN(runftile,curtv*.aa.id,dowid): 
Remoiueeeruneéile,curtv*.,aa.ic.cheseq)}; 
Peroumeocuntile,curtv-.aa_.ia.metric); 
RCAC omer Uncile,curtv” metric.sum); 
PeePiwenunzile,curtyv®.statetld); 


(*¥add the tv to the do*) 
iovomeees CULCVY~,aa.id.do.id; 
IF dowarrayflinval) = nil Thin 
WRITELSA (’tnis data opj not in use’) 
ELSé& ji 
tmeageerraylinvalj~.tveptr = nil THE 
BEGIN : 
Goearnayvybinvelj*.tvaptr := cureyv; 
Soman Val) 7.ch=sed := 
d0.array({inval]*.ch.segq + 1; 
END : 
EUS& 
BEGIN (*2*) 
Weqpy 2= dosercravuinvall “<tveotr: 
wnhlLe temov*.nxt <> nil vO 
tempv $= tempv*.nxt; _ 
CaMV o ext t= CUrtY: 
Gceartrayiinveals” .cnaseq := 
donwarraviinvals*.cnaseq + 1; 
END; (*2*) : ; 
ENO? (#1 ¥*) 


See TTT TTT TEST TTT SS SCSSSSCSSCSS SS CSCC SECT SS SCC SS SESS LESS LS 
PROCEDURE const-conhist (VAR curch : ptr.cn); 


ree tamGOonmeericts a cont hist from parameters innout from 
file runftfile.dat ¥*) 


YAR 
ii ate: LRECQeT; 
Sikes anCmial®: > 
eemoucm. DOtr.cn; 
femeeair $: ptr.ch.peair; 


BEGIN (*1%*) 
NEw(curcn); 
NEw(temppair); 
Clidemaenxt := nil; 
Guscmeecair .Otr $= temppair; 
Vo eemeruinta te ,CUrGM.,ada—ol10,tranSesite .init.site); 
RLADLUNCrunfile,curcn*,aawid.transesite,trans.num); 
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REAM ooruUnS.Le,Ccurcn”.aanwaiad.Stanum); 
READLNCrunfile,curcn? 0 4Gn10,aannun)? 
Sominuerunecd le, GUrcn-.saa.l0.hnw-£10)} 
REAOLNCrUuNnflle,curcn*,.aania.dowid); 
READUN(runfile,CcUrcn®,aaald.cnased); 
REAOLN(runfitle,curcn®,aawla.metric); 


READLN(runfile,temppair” ed4anid.trans. Sitecinitosite)? 


READLNCruntile,temppair” 02anld, erase Site.trans. 
READUNC(CrUNfIile,temppair*.aawia.eStanum); 
READLNCrunftile,temppair® odda aleve aaanum); 
READLNC(runfile,temppair~ aania.raveflg); 
RRADUN(runtlle,temppair® gadatG.d0uld): 
READLN(Crunfile,temppair*.aaniaeChased); 
READLNC(Crunfile,tempoair*,.aawla.~metric); 
READLNCrunfile,tempcair*.metricasum): 
END; (#1) ; 


num); ’ 


(KE REKK EKER KEKE RFE EK TER EKER TKK KEREKK EKER ERK KER ARK KKK EK ERE SE KE) 


meomieevume add CONnist (VAR Ccurch :; ptracn; 
whnere,inval,indo $: inteacer; 
Iinsice = char; ; 
MEE tnst. ©“ inmvecer): 


(* tnis proc adds tne newly built conf nist to the 
destination of a data obj,temp ver or suo trans 


VAR 
Guipeter. —Dtr.trans; 
Cases s DerawoGrans; 
Semocm,tbolcn <~< etr.cn?} 
COEMBEVY F ptr.atv; 


BEGIN (¥*1#) 
case where of 
1 $3: sgEGIh (*ec1#) 
me sdOsearmavlinvelj = nil THEN 


selectea 
+) 


WRITELN(’data Obj not in use do cover”) 


ALS 
SEGIN -o*) 
re = 


cowarraylinvalj*.cnoptr? 


Hegcen tendenarreay (inval)*.ch= ptr Rte Ea 


WHILE tempcn*,nxt <> nil dG 
eeGIn (¥4%) 
folcn := tempch: 
temecn s:= tempcn* nxt? 
END? (*4%) : 
CULCOEMGIt f= LOlGne nxt; 
So len sree = einen: 
END? (#3¥*) 
Bey Ceeie) 


+} oe @ 


oy 





2: BEGIN (¥c2*) 

GUNCY S=mtransecpter? 

IF curtr = nil THEN 
WRITELN(’no transes at ell’); 

MGEEE CGameregnxt <> aii) and not (€¢€curtr- 
etrans.site,initesite = insite) and 
(curtr“.trans.site,transonum = intr)) OU 

CUrCY t=meurtr* nec; . 

GE (CeCuURtr “snc = ntioe and not 
CCCiNMePeRaNnSaSiEeG.Initesite = insite) ana 
(ele er smbans=site.transenum = {intr)) Ren 
ARITELN( transaction does net exist ln’, 

eens Fun 7) 

EuLSe 
CEGIN (*E€2,1*) 

Guten s=> CUntr~ .st.ptr? 


IF curst = nil THEN 
aniTELi (“no sup transes for Ghose, 
* trans”) 


ELSt BEGIN (¥*c2,1,5*) 
Wate GouGtst-,oxt <> Ail) and not 
(euestcactenae]= 1st) vo 
Gunste ss eCcUrctemaxt 
Pe CSuUGSE". Axe = NLL) and not 
COURSE > .stetce= INSt) THEN 
WRITELN(’SUb trans goes not exist”) 
ELSE REGIN (¥*¢2,2*) 
PeRcCUrSt | .Stoen=our = fi 
CURSE -woceccnocoer * 
‘ ELSE BEGIN (*c02,3+*) 
CEONDeR s=Feurse ~«Stocnaptr; 
While ecenpel, «axe <2 Al) OU 
Btemvuctuns= .tenoen-: xt; 
CONRGMa ehiwee. = CUrch} 
END; (*C2,3*) 
END: (#¢2,2%) 
END: CF C2e1 . a8 
END? (€*¢62,.1¥*) | 
END; C8250 


jC et ony 
=e ut Cu 


ae SEGIN (*3*) 
7 LeacdomarrdvycindoOs +.tVarptr = nij THEN 
Ammen no temes for this d.o.°) 
ELS@ BEGIN (#3.1¥*) 
temptv := dosarraylindo)]*.tveptr;} 
MoVbeee(temptvy~ «nxt <> Ail) and net 
GGeanptveraaotoermtransisite.,initusiite = 
insite) and (temnptv*,aacid.transesite 
meranesenum = imtr) and 
(tTemptv*.dawld.Stanum = 1nst)) OV 
PenbeV: = temMpty- «nxt? 
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a2 (temptv™.nxet = hit and not CC(tempry 
mada ltGewerans_SLlCeseiLNLIC—Site = insite) and 
CEGTIDEV”  .adaeid. trans site,.,trans-num = 


myer) and (Cemptv” .aacic.stenum = inast)) 
THEN an 
WRITELNC’no such temo version exists’) 
ELSE 
Meee moey s,s CVoLOCNaPtr = nil THe. 
Cehomr ,CVa.Crmarmer = curcn 
ELS& SEGIN (43,4) 
ceomeen s= tenctv~.tvocn—etr: 
WHLOE tempcon~.enxt <> nil bo 
temoem <= teimoen> nxt: 
tenoen waxt 3= cuorcn; 
Bo (*3.4*) 
END; (*3,1*) 
END; (*3*) 


oe eG iN (*cd*¥) 
Gurtr s= trans per: 
Le GGurer so nii, Tage 
WRITELNC’nNo transes at all’);3 
wi eo CCE rT“ smxe <> miljyeana mot ((curtr?. 
transmsace,initesite = insite) ana ~ 
PGUGCregenansest te. trans.nuiry = intr)) Du 
CUntEr ssmCuUDrer «nce: ; 
Tee Ceurtr*ssese = oiljeand not ((curtr~. 
trans Ssiteminitesite = insite) and (curtr* 
etransaSite.tCransanum = intr)) [net 
ARITELAC’ transaction does not exist in’, 
“SeRLs pac) 
PLOE 
SsaGIN (*c¢,i1%) 
De time. trans.jcn.Ptr.= 
CUPEE-.ClotionChMertcr 3 
ELSE BEGIi (*¢c2.3*) 
Cemecn += scUrtr“,tranSocnotr: 
Anes Cenoecn .«Axt <> All DU 
temecn s= tebieen”. nxt; 
Cemeen «AXt t= curren; 
END; (%¥c2.3*«) 
EAD? (*¥04,1%) 
END; (#4,%) 
END: (*case*) 
END; (*1*) : 


OS ek 
uren 


ni 
c 


(HEKKRERE KKK REE EEK EK RER ER LERE KKK KKKE EEK KK EEK EE KEE EKER SE) 
CF=main loop £0r COnNCNntv *F) 


BEGIN (¥1*) 


Od 





Biuoemmoc eFOfCrunfile) bo 


beoGIN (¥while*) 


READLN(runftile,cn); 


ye Cn 


sa as 


Pie 


constatemov(curty) 


ELSE 
re 


ela) 
BEGIN 


ELSE 
ARITELN( “error on runrile”) 


ENO? (#*wnile*) 
END? (¥#1%) 


™= 
= 


TREN 


(zee i a 30 


READLN(runfile,wnere); 
case where of 


END 


BIND (Ges. 


$ SEGIN 
ReAOLN(runtile,inval); 
SOmsSeaconmise(eCurcn); 


Seaqeconnyst(Curcn,wenere, LAVal,U, "xX", 


UO) es 
END? 
; SEGIN 
REAOLN(runtile,insite); 
READLN(runzsile,intr); 
REAGLN(runrice,inst); 
Somsreconnioeccucch) : 


ada-.connist(curch,where,Vv,U,1inSlte, 


yer >, aris &)-2 
END? 
: KGIN 
REAOULN CP GREt le, indo); 
REAOLN(runtile,insite); 
neAoLN(runrile,intr); 
KZAOLN(runtile,inst); 
eomoteConnist(curcn)- 


aoamecomnisc CCUrEGh,wnere,U,1ndo, 
PR Sweees Ltt, etic C) ¢ 


ENO? 

SeseGin 
ReAOLN(runtiie,insite); 
PEADLN (rune le, intr) > 
Sonsceconmiseccuren,) ; 


Sip ie 40) 0) 
ENO 
(*¥caser*) 


(KRKEKEEKAREKRK EKER ERK ERK KEK AKER EERE R EKER KAR RAKKE KEK EKER KE) 
CERKKEE KKK EKRAKKE KKK RK ERK EAR EK KEKE KK EK KK ESKER KAKA KEKE EE KE) 


PROGOOURemeDrint .Cran.struct; 
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(* Bas Pments Out the 
aata.dat * ) 


VAR 
Benperes) Pirotrans; 


Cransaction data structure to file 


CREEK EKKK ERK EKER EKER EKER ERK KEE R EERE EEE KEK KEKE EK EK KR RK SEK RKK) 


PRUGCEOURE print.tren (head.cn > pCreAch); 


(*¥ tnis prints out tne 


BEGIN 


Crans Cone nist data 


moeemead.cn <> nil THEN 


See KF f ¥ ) 
Ai Medd. Cn 


vO 


SEGLIA (#withs) 


“0 


ese utes 2 ics 


r 
, 


Hard. FLaANSeaSL&eEe@einitasite : 4); 


e 
? 


Saale S tenn 4) 
aaere,aeanum 24); 


g 


Saalo.reNe floss)? 


A4aalid Beko: eae : a 
GAanelaGeCnaes@q 3% 


Saeed gC er Gu. 4) 


WRITELNWCaQata, “a trans conf 
wRITELN(Qata); © 
ARITELN (cata, fj bai.ctes ice 
w#RITELNCaata,’ cransonun 
A@aQald.transeas1lt@.transanium 3: 4); 
AKITELN( data, ” StE=anum °, 
WRITELN(CQata, ’ aaanumoe. > 
AKITELN(G4ta,’ raveclg °, 
HRITELN( Gata,’ aowid a, 
WARITELN(C Gata,” Givers ae cc 
WRITELN( data, ” metric *, 
AR ITELN( Sata); | 
ARITELN( data): 


END: (#witn*) 


AITH neadacn* 


goetreOtr” Ou 


BEGIN (C*withn*) 


9 
f 


Sami G.transSast ce vinitasite : 4); 


e 
f 


aawid.transasite.transonum 3 4); 


WRITELN (data, i Pee site 
aRITeLN(aata,” transonum 

WRITELN( data,” Stahum i 
AXITELN( data, ’ aaaNhlm 7%, 
WRITELN (Gata, ’ Paar ig 
ARIT ELNC data, “ ace1G ae 
WRITELN(Qata,’ Ghaesea °, 
WRITELN (data, ” me@coece  °, 
WRITELN( data, ” metricasum 
WRITELN (data); 


END; (*witn#) 
printetren(neaancn®.nxt)? 


END CPt *) 
ELSé 
BEGIN 


be 


aant0.Sstenur % 
2G4nlaQedawnum ; 
GGela.reveildg: 
admna~,~2OCf1c 5 
a@aeid0,cn.seq 
@awlda,metric 
weectLeasum: 


@ui ee oe 


) . 


j 


s 
e 
g 
q 
td 


=e *e R08 Be BH *®e BO 





WRITELN(data); 
WRITELN( data, “end of tnis trans conf nist list”); 
NRITELN( data, "FRE KEKEKKE KKK KEKE KAEKERE KE KEK EEK” 
WRITELN( data); | 
END? ; 
END; (*proc print.trcn *) 


t ke 


CEEKKEKKKEKE KEE ERE TE KEKE RAK EKEKRK EE KER KKK EKA KKK KKK RR TERE KE EK) 
PROCEDURE print.stch (nheado.cn $ ptr.och); 


Boer is prents out Che sup trans cont nist data tor a eacn 
ccans. =) 


BEGIN 
Peaeneadacn <> Ail THEN 
5eaGIN CF12*) 
AIThH ne@ad.cn* OC 
BEGIN (¥with*) 
Were oiedata, “a $UD trans conf hist : *°); 
WRITELE Cadata); — 
ARITELN( Gata, ’ iptcesuee i | 
Gdatad.Cransositesrnitcusite <: 4); 


ARITELN( data,’ transanum °, 
awd, transact temirensaonum : 4); 

WRITELN( data,’ = CeCe Vac ton sta nium. 14) 5 
WRITELN( data, ” Aaaaentn °, aAagucid.eaaawnun 3:4); 
NRETELN (deta, ” Peg 5 aid orn e wont 6G 2) 
WRITELACGata, ” kel uel (oa Oe Om Gd 6s. 4)"s 
WRITELNCaata, ’ EMaseqy ", acalo,enaseq $4); 
wRIVeCUN( Geta, ” Neb Cis paadala.metrle i477 


WHRITELN( Gata); 
WRITELN (data); 
END: (*witn*) 
Mile NEeaegecn-,oalraptr” vv 
PEGIN (C¥*¥with*) 
4RITELN( data, ” Tne oeee 
Saeed. Cransaslteeinitesite : 4); 


WRITELW (data, ” trans.num °%, 
Saaraguoleniscaslue.clansanum <: 2); 
Weep re ul Cdata, ” staenum wo ece teas tenum 490-5 


g 
WRITELN( Gata,’ Asean Oo - daald,adanum +4); 
4KITELN( Gata, ’” Pewee 2. ada ldsraVvVatla:;4); 
wkITELA(CGata, ’ dig. Saat ed Oa 1d.) a4] 
iit euN data, ° Gnesiedmmn, daeldacneseo .:4)> 
wARITELN( cata,’ metric °°, adald metric 3:4); 
WRITELN(data,’ metricwsum °,metricasum:i4); 
wRITELN( data); 
END? (*#witn#) 
printastch(nead.cn*.nxt); 
END (#1£*) 





C5) 


LSE 
BeGIN 
MRL TeELNCdaeta); 
WRITELN( data, “end Chis sue trans conf hist list”); 
WRITELN( QATA, "KEK AK EREEK ERK EKEREKR KEK RRR EK KEE ERE) 
WRITELN (CaQata); | 
ENDS: oe 
END; (C¥prec st*) 


CR EKKAKKAEERKK EKER EK KAKA KR EEK KKK KKK KEKE KERR KKK KEE RE RRR KK KES ) 
PROCECURE printwaa (neadeaa : ptraaad); 
Meecnis prints tne ea data for each Sub trans *) 


BEGIN 
LE neaed.a@a <> nil THEN 
aeGIiNn (*#1£*) 
WITH N@ad.aa® VO 
BEGIN (¥with*) 
WR TEUNCdata, “an atomic acrion : *); 
WRITELNCaata); 
WRITELN(aata, ” iiitms eee oo 3 
; Maca laweragcoesuce simi tesi ce 2.4); 
WRITELA(C Gata, ’” Crans.nunm °°, 
A@a@nld.transeasite.transanum : 4); 
WRITELN( data, ” SC onmmenc, daeva,.s tlnum: 2) 
Ro eeUN Cdata, ” daanum GaewonacenuG 3) 
WRITELN( Gata, ” re ate 58 As Bio 7 2 se) 
AR ITELN( Gata, ’ aowia aaeld,acsta = a) 
MKITELNC Gata, ’ cheseG °’, a&aaid.cnuseg :4) 


8 8 8 


. i | = ™= ~= ~~ = = 
‘Se wee “YWoe BO BO *B 


WRITELN(Qata, ° Nee wlCmmee a data.melric 34.) 
An ITELAN( Gata, ’ stet Peter Gt cle mss ta)ive 
WRITELN( Gata,’  timesval °, timecvai : 4); 
WRITELN(data,” Stepomums:, Stepanuim : 4); 
WRITELN( Gata, ’ Navesiock ”, have.lock : 5); 


me Viomecdama, inalockoetucq-, inalockoofiq: 5); 
wRITELN(¢Gata)} 
END? (#*withn*) 
printeaa(nNead.aa*.nxt)?; 
END CRLEF) 
ELSE 
SEGIN 
WRITELN( data); 
WRITELN(data, “end of tnis atomic action list’); 
ARITELN (data, “FRE RKEEREEKEKEK ER KEKE REKER KEKE EK" ) 5 
HRITELN( Gata); i a 
END3 aa, 
SND; ~ (*%er0C ads) 


(EKER KEK EKA KREE EKER KERR EK EER KERR KERR KK ERK KKK KEKE RAE) 


13 





PROCEDURE printsasubt (headast 3 ptrastrans); 
(# tnis prints tne sue trans structure for a trans *) 


BeG(In (¥*proc st#) 
TF neadast <> nil THEN 
pbEGIN (*1i1f*) 
ALTH neadast* dQ 
BEGIN (*with*) 
WRITELN( Gata): 
AKITELN(GQata, “a sub transaction 3: ”);3 
WRITELN(Gata); 


WRITELN(Caata,’ Stee Py oe oe eee er 
*RITELN (cata, ’ aaaaty Cacemicy 2 4) 
WRLTELN (cata, ” Aamereade ) “votetroaty 2 o4)s 
WRITELN( cata,’ execafls Bee OC = tilgames 51) 
Heoneinncdata, * torkeflg ere afi 2 oo: 
WRITELN (cata, ’ NeeLweesummec metric. sul: 4a: 


WRITELN (data)? 
END} (*witn*) 

printwaa(headost*.,aaaptr); 
ern tast cnt peadest »Stech.ptr); 
Cimumeesuot(neaa.st*.nxt): 

ENO (¥1£*) © : 

ELSE 

GEGIN 
WRITEUN( data); 
menoen(aaca, "end of Sub trans list, tnis trans’): 
ARITCUN( GALA, SFE EKER ERE ERE R REAR ERK EKER KEKE RE KREE” DS 
WRITELN( data); j | 

ENO; 

ENO? (¥*proc st) 


(EKKKRKK KERR AK EKER EEE KEK KE SEER KK EKER K KEE KEE EK KAKA KK EEK EX) 
PROCEDORE Ofrint.tran (nead.tr ; per.trans); 
cs Gismerints OUE Eranseactions in the gata structure *) 


BEGIN “"Gteroc tr*) 
Prohedgaetr <> nil THEN 
BEGIN (*{r*) 
WITH neadotr* vo 
BEGIN ew ei) 
ARITELN( data); 
ARITELN (GALS, “FFE EKEKERKRERRKR EKER ARE RK KER”): 
AXITELN(data,’a transection : °)? | 
AKRITELN( Gata, “FE REERE EEE REE ERE EKER ERE KEKE SE ) D 
WRITELNC Gata,’ staqty east eGtyeil <4 5. 
WRITELN(aata,’ execaflg * exec. ft lame 5 ); 
NRITEUN( data, ’ Soa, se StStrPooty § 4)3 
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WRITELN(aata, ” tiles ee "4s 
Eiadnoesteeeinitaesite : 4); 
AKITELN( data, ” Eransenun , 
transasite.transanum : 4); 
WRITELN( Gata)? 

END; (C¥*¥with#) 
Srimeetrentnedua.tr”,transwon ptr); 
Srimesaioe(nedastr=,st.otr); 
printatran(neac.tr*.nxt); 

ENO (#iL£*) 

ELSE 

BEGIN 
WRITELN(aata); 
ARI TELN (CGAL, FKERERKKE EER KEK RE REE RARER EKRKRKEKE EKKO) 
WRITELN (data, “end of transactions °); 
WRITELN( GALS, KERR KRERKEKE KR EEM EKER RK KKK RKEKKEEES YS 
WRITELN(dGata)} . 

END3 ~— 

AOR CpEeroc tr) 


(FREKEKKKEKE KEKE K KEKE RERKE KK KKK KR RRR RK KK EK ERK KK RK RARE KEKE ERE HK) 


(* main loop tor printatransestruct *) 


BEGIN (*main*) 
teiiptr 3~= trans.otr; 
Srimcacran (terptr); 
END} C¥main#) 


(ERKKEKKR KEKE RAKEKEKKREKREERAEK KEK EEK TKK KEK SE KKK RRR KEKE KEK KR KK) 
(SKKEKKEEKAKKK EKER TKK SK KKKKK EKER KARE KERR KA KKK KK KKK RE K KKK KEKE) 


PROCcnUURE Print.d0o; 


(* tnis procedure will output to file “data” the aata opject 
structure #*) 


VAR 
{ : tnceger; 
wetieoaGimibur -« CUCr.ch; 
Pemeseweper « DOtratV? 
wenioeLtoc<ae0tr : otr.lock.g; 


BEGIN 
FOR i ¢= 1 T0 939 ODO 
If dowarray{fi] <> nil THEN 
BEGIN 

wRITELN (cdata)} 

WRITELN Cdata): 

WRITELN (data, °***** docarray L°,132,°)] #****"); 
NRITELN (aata); : 





Gt QUTBUC docwpermurect *) 


Mel gOcarray({ij* oc 
BEGIN 

wWRITKELN (data, ”% no.wreads 

WRITELN (data, ° noawrltes 
WRITELN (data, ° MOCK e eee 
WRITELN (data, ” NeaemMe so 
WRITELN (data, ’ SeCmitut) ” 
WRITELN (aeta, ’ NOEGKSOty 

WRITELN (data, ° cnaseq 3 

WRITELN (data); 


e | 


; , hOere@eds); 
eel) Cartas wee), 
POCGK) } 

hacen: )7 

Sec mG, 

OO fa BOK eG EV) as 
eel ee 


Renn a 


(smoOwepiEetme GOLDerm Conflict nistory ™) 
WRITELN (data, ’** qo.fern GOntLict N1istory fh); 


wWRITCLN (data); 


T@neecOm@Ptnr c= chaptr*.nxt; 
Wiohlot weoemeechiaptr > .,daaia.trans 
9999 OC ; 
SEGIN 
AiTH Gemp—chwpcr® 00 
BEGIN 


WRESEEENCCata, “initesite : 


=5 Loewe ranseaNit. <2 


*tCranSaSltesinitaosite); 


WRITELN( data, “Cransenum ; 


*,aaeia 


stransesite,transeanum); 


NRITELN(data, “Stanun ;: 
WRITEGN(¢ata,’a@aanum : 
WRITELN( Gata, “rawaflg 
wWRITELN( Gata, “aowid ;: 
WARITELN( Gata, “CheseGg 
ARITELN( data, “metric 
AR ITELN( cata); 
WHT ae oad raptren DU 
BEGIN | 


ee e086 


Wage leeS Cat) 5 
* -oe—0e.0.a0q—nun)> 


7 poaeeld. fr aNat Lo) Ss 


jaastandonic); 
padoiG. cise ); 
", @anel0.metric); 


Ser teintdata, “initasite : °,adeicd 
Pec cance s.eenni cacti ce); 

WRITELNCUaLa, “Crensanum 3 °,aaald 
Watramsestte.trans num) 


aARIiTezun(data, “Steanum : *, adalda 
Sesce num: 

WRITELN(aata, “aaanum $: *, dadald 
" aaanum); 

WRITELN(aata, ’rawafla : °, aaaia 
at mittee £ Gy)’ > 

WRITELN(aata, “doula : °, aania 
~a0mid)} . 

WRITELN( data, “°“cnhaseg : %, aaaid 
“,cheseg); | 

WRITELUNCaata, "metric $: *°, aawld 


~NQbeic) > 
WRITELN(qata, 
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anGureco Sun ?: °, 





Meth Ll eGasuml)? 
END 
END3 (* wnile *) 
aXxILTELN (data); 
WRITELN (data); 
PeniveacieaPpolr += Ceme._Choamier .nxt 
END; | : 


(* output the temp versions *) 

WRITELN (data); 

ARLTebis (aala, “**#** temporary versions ag ee 3 

WRITELN (data); | 

tempat Veper := tVeoitir: 

AH CeMNPaGCVeDtr <> Alli DC 

BEGIN 
Wr CONOLEYAPCYr= 6G 
GEGIN 
WRITELN(data,’*# temp version adaia *°); 
WRITEUN( data)? 
Ne Leonie deel sees rhe. ss  ,da.1¢ 
eCrans.Sites nitesite); 
ARLVTELN(data, “transenum : ",ddaela 
~(transesite.transanum); 

Rete Ewa Cab ece enue «ne, ad.la.Stanum); 
WRITELN( Gata, ’aasnum 3: %, a&aseic.aannuna); 
WML GetN Caataywmarme loam “naa id.rov.£19)> 
Wellh uN (data, deen Gm.) Cdenla,d0o140); 
Werte Caataecemeseg 29°, Saaoid,chisea): 
POM eiCcetas shot hiG Sos, dad ola.metric); 
WRITELN (Gata, “metricosum 27, @Ur eesum je 
Wel ieemedaGa, staearid £ “,stat.tla) ; 
WRITHLN(data); | 


(# output temo version conr Ma shony »*) 
WRITELN(aata); 
WRITELNC data, ***** temo version cont’, 
“ nist #**x**"); 
heteacwemcen f= CVCENaPtr ; 
WHE Cembmchearctr <2 nil bo 
aeGIM 
RlepHitemn Dacia irr UG 
BEGIN : 
WRITELN(CaAata):; 
WR teowoceata, iInitaosite :°,aa.icd 
; Memansasite, 1Nlit.site); 
wRilebs (data, ” crans.nun 2°, aae a 
Hamansosite.trans num); 
Wee oNtaaAta, Stanunm : °°, da_ic 
»Stenum); | 
wWRLTELN(data,’aaanum 3: %, aacic 
~aaenun): . 





WRITEULNCGata, “raw.fliag : 
7 Mena e la) 
WRItelLNCdata, “doula 
7 acon ic 1; 
weilTebicaata,’cnaseq : 

-chmseq); 
WRLTELNC data, “metric 
. emeEtric)? 

WRITcLNCaata); 
Wha Dalroeotr™ DOMBEGIN 
wRITELN(aata, “1nitest 
aawia,transosite.in 


e ? 


WRITELa (data, “transanum 


adaelaetrans.site.tr 
wRUTELNCdata, “Stunun 
aaa. stanugm) > 
wRiTeLN(Caata, “aasnun 
aaeia,aaanum); 
ARiTeLa(aata, “reawatlg 
aaa. bawat 1G); 
WRITELNCaata, "aow1ia $ 
diaelomaoe) a): 
WRiTELA(CaQata, ’cn.sea 
ada leccn. Seo )-§ 
w#RITELu(aata, “metric 
aadwia,metric)?; 
HHL etouNw Caata, me cric. 
jijeeepeoas um): 
eND 
lesen Wikkme Lemeecnaptr 
WKITELN (data); 
ARITELN (data); 
Cem coueerr ) += tenmpachartr: 
END (€* while #*) / 
BENDA Ge Witmn Ceme.tv.ptr *) 
WRITELN (data); 
Eetoe@eveptr 
ENO? C* Senile +) 


GempatVaw Gr 61x & 


(*¥ output tne lock queue *) 
WRITeLN (data); 
WRITELN (data, "°****% 
WRITELN (aata); 
Temomlocka.otr Werene a epaic ie hae 
wHILE temowlockqeptr <> nil bO 
BEGIN 
Wet H EeMmPLCLOCKG.ptr® OU 
BEGIN 
ARITELN( data, “***** 
°  KRERK YS 
WRITELN (Gata); 


lock queue 


11g 


ere pay eter 


s 
, aeadalad 


e 


, 


a4qaa.ld 


Ge. ee 
teSasi te)? 


° 
/ 


anSsanur ie 
4 


2 
2 


6 


oH ae al 


, 


oe 


eANXl 


KeKEKS) > 





WeLeuNcda ta ee tiitees. GO fs. °,aa.1c 
Pocotons een t ce Se), 
WRILELN( Gata, “transanum : °%,aanic 
meapamsesi Lew eranc.num); 
WRITEUN( GaGa, “Stonun $ °,a4alia.stanius); 
WRITELN( data, °aasnum 3 °,aanld.aaunun); 
Wel tome (data, fav.tldg 3$”,a4a.ia,rawWetla); 
Wee eLViddcd,’ A0Wid ¢ °,aania.ao.ia); 
WRITELN(aata, “Cnaséq 3; %,aa4sid.chaoseqg); 
AMriSUNCdata,smetric ¢ °,aa.id.metric); 
WRITELN(aata)}3 | 
EeugalOCKGectr f= FeMmpiloeKcaq.oDtr7 nxt 
BND (* with tempolocxquptr *) : 
END (* wnile #) 


END (€* with dowarray *) 
END (* 1£ thnen *F¥) 
ENDS 


(KER KEKKRKEEKKEREK EEK RK EK KEKKEKKE KE KEK KEK KEK KEK KKK KEK KEE EEE) 
(KEKERKEKRE EERE R ERA KEE KARE ERK ERA ERE KR KK KER ARK RHE KEM KEK RRK KES) 


BeUcClOURE orintidic; 


(*# tnis procedure outputs to file “data” the data alctionary 
Structure #) 


VAR 
ee omeeGers 
EenoeagTeowptcr : oh ae ee 1 Beams 


SseGIa 
ARITELN (data)? 
ARITELN (cata); 
AFITELN (Gata); 
FOR £{ := 9 TO 99 DO 
treeceiGaanray [ij <> nil THEN 
SGI". 
WRITELNCaata) $3 
Pete biodata, ¥¥F** dicwarrey (°,1:2,°) **F*#" ); 
WRITELN(aata)} 
Bemoecdtcospctr $= dicearray lil; 
REPEAT - 
Whe Cdeataym- , Cems .aglclotr"”.site.id)? 
Bemie.dicaoptr := tempi.diceptr?. nxt 
Uitee femmoanclc.ptr = All; 
wWRITELN (data) 
END ia! 
SND ° 


(RRR KE REE AR EERE KEKE KEKE K AER ERK KEK ERK KER KER KKK KEKE EEK KS ) 


ba 





SESS ECTSCSSSCSCSSSSSS SSS LCS SSCS CSS SCS SS SCSCLCSCSCSS SCC CES See eee ee S| 


CGLOBAL] 
PROCEDURE prselect; 


(# this is a utility print routine for all internal cata 
Structures allows a user to select wnicn aata structure 
to print *) 


YAR 
minsie: : integer; 


BEGIt 

1 s= O; 
WMRiTaeuNn( select @#nichn printout you want’); 
WRITELN; 

ARITELN( %1 
AKITELNC%2 
WR i Deu ( "3 
wWRITeELvWC°4 
Reel Coma ( * DS 
ARITELN( %C 


Goemoestryuccure’ ); 
catacopject structure’): 
Gabtaeavetioneary strveture’); 
trans and data.0bj”"); 
trans and data aic’); 
data obj and cata adic’); 
WRITSGLNC°7 all three’); — 
ARITELN( “7S fone. J; 
ARITSLN( enter an integer answer’); 
readwinteger(insel); 
case insel of 
Seer int.tranostruct; 
ee Ugh ame oie a 
erint.ao; 
BeGIs 
Ofencecranastruct; 
Crimc.cO; 
EB, Nias 
5 : BEGIN . 
SChric. traneStruct; 
Pinte ol Cc; 
END? 
Gs SEGIN 
“Sis 1g geno fs Weg 
Oran a Os 
END; 
7 oeseGin 
Oh ioiteclanaestruct; 
Crinted LC; 
Graeme. dO 7 


es @€6 66 @64 


2 
3 
a 


tA 


EN 
Bugs, 1 


ee (1 


li ve 


1; 


END: (*case*¥) 
END? (*proc*) 
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END. (* module 8 ¥) 


CK EKESKKEKKKKE KEE KAKA KER KR EEK EK EK EKA KR KKK EEK KEKE EKER RF RR KE) 
(EXER KKAEKKK EKER REAR AKER KEKE ERK KKK KKK KEK KR KEK KR RK KE SET EET) 
(KK EKK KEKE KERR EKE KKK KEKE EEK EK ERE EKER KR EKER RE ERK KK KE RHE REE) 
(KEKE KKEK KK AERKK KKK EER KK EERE RAK KERR ERK KKK ERR KKK ERR EET ESE) 


(INHERIT (’builds,.pen’”)4J 


PROGRAM algo.wtest (input,output,audit,data,runfile, 
trans,catadic,dob])); 


VAR 
j},timec.delay, i : integer; 
seed 3: unsigned; 
Cb ce Char; 
stoprun : boolean; 
SurGeeiistaptr,tvl.purge ;: ptr.ch; 


LeXTeRNAL] 
PROCEDURE pD1dtx; 
EXTERN? 


CEXTERNAL] 
PeocGmolre blddic;: 
exTerRNn; 


GRATER WEL J 
FROCEOURE blddo; 
EXTERN; 


CEXTERNAL] 
PROCEDURE enteritimeidelay (VAR timendelay ‘sintecer); 
EXTERN; 


CEXTERNAL] 
PROCEDURE enter.wrandom.seed (VAR seed sunsigneda); 
RATERN; 


(EXTERNAL) 
PRUCEDURE Check.stop (VAR stoprun ; coolean; cn : char); 
EXTERN; 


CEXTERNAL) 
PROCEDURE bldcntv; 
EXTERN; 


CEATERNAL) 


PROCEDURE Savcntv; 
EXTER: 


Ze 








CEXTERNAL] 
PROCEDURE conentv; 
EXTERN; 


CEXTERNAL] 
PROCEDURE prselect; 
EXTERN? 


LEXTEKNAL) 
FUNCTION AMTHSRANDOM (VAR seed ; unsigned) : real; 
EXTERN; - 


CEXTERNAL] 
PROCEDURE aqddnneaandat (VAR Ctiwechne pea : ptr em? 
EXTERN? | 


(AREER EEKERRK RA ERE RKERE REESE KK REA KKAR KARTE ERE ER KEK EKRE ES) 
(RERKAE KK EKER KE REE RAR KK AREER KEK EK SK EK EK RAK RRR K AK EKER KE ) 


PROCEDURE Select.wtrans (VAK seltu.navewaa : boolean; 
WUMurse lEmerpansaetr : CtLr~trans; 
VAR seed $: unsigned); 


C¥ this procedure will randaomly select tne next transaction 

~ tO pe worked cn within those wnicn nave already negun 
execution and tne next one in tne linkea list of 
transactions *) 


VAR 
temPpeatransaptr s ptratrans; 
if, tmmoe : integer; 


BEGIN 
Tle g@erens.ptr = nil THEN 
seltenavewaa t= false 
ELSE BEGIN 
SSLELCTans.ptr := trans.otr; 


ieeene 1S 

(* Set im= nom of trans already executing + j *) 

Werle “Se€lt.trans.ptr <> all v0 | 
BEGIN 


Pees ceeransSe=per .@x@c.f£f1¢G = true THEN 
jes= f +. ly : 
SameLeeranoeperuc= SE@lLtLtrans.ptr*.nmxt 
ENC; | ; 


(% Call random number generator tor integer 1 => i *) 
tnrow := CTRUNCCCMTHSRANDUM( Seed) ) *1000U0)) MODUL” sce: 


Cs select the trans #*) 
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seltu.tranSuptr := transaptr; 
PGmm s= £ £0 €throw = 1) ov 
Peesteveatransoetr*.nxt <> nil THEN 
Seer anseper <= Seitatransaptr*.nxt: 


(* flag the trans as "executing" *) 
selt.transaptr*,execeflg := true 
END (#* ELSE ¥*) — 
END; 


CFKERKEEK KEK EKRKKEEK KEKE ARERR KEK KEK KEK KEE KKK KR ET KERR EEE KARE TEKH) 
(KKK KKEKKKRKEE RASA EK KEK KR ER RK KKK KK RK AAR KK EKA REAR KK KEKE) 


PROCEDURE selectust (VAR selSenaveuwad $ Hoolean; 
SenceeaenS amen se PErcrans; 
VAR selSuestuptr : ptrastraens} 
VAR seed : unsigned); 


(* This procedure will randomly select the next 

+ g§ubEranSaction to work on wlitnin a given transaction. 
Those #hicn have all tneir atomic actions as t(r) sare not 
consiaered; neitner are the Suotransactions whicn are 
forkea to another slte *) ; 


VAR 
o GCheow $: integer; 
Sevsetemoeooctr : otreaa; 
navesst : ooolean,; 


BEGIN 
IF selsatranseptr*.steaptr = nil THEN 
Selsanavewaa s= false 


ELSE SEGIN 
(4eecanemnumcer ceneraeor for integer Peono. of st’s *} 
throw := (CTRUNC CCMTHSRANDOM (seed)) * 10000VU)) | 
; MObeselosntaansecthaestaaqty + 1; 


(* select tne supstrans *#) 
SempeeGeaptr $= selsotrans.ptr*.steptr?> 
POemi ss 1 19 Ctnrow = 1) DO 

ose Scepter 2= selsestootr- «nxt: 


(* eneck IF subtrans” aa’s are all finisnea #*) 
S@iisetempuptr := selsSi.st.ptr*,aaeptr: 
nave.st := false; ce 
AdIbe selsutempeptr <> nil bo 
BEGIN 
IF selsawtemouptr* Sstepanum < 14 THEN 
naveost i= true; 
selsutempaptr := selsatempeptr*., nxt 


Aas 


END; 


Wesel SaStapcr »,sLOrkKoflg) or (NOT haverst) fhEN 
selsuwnavewdaa := false : 
ELSE . 
SericeeuePpebawmexccatfloa $= true 
END : 
END: 


(KKKESKEKE RRR KKK KKK KEKEKKE EK EKER KEK EKREA EER KARE KEKE REE HH) 
CHK EKKAKKR KERR EKER EKER ERK KEK ERE KKK ERE KR KEK KKK KKK KEKE KEE ER) 


PROCEDURE tind.aa (initesite : cnar; 
Pitrnansanun, Stanum, aaanum : integer; 
VAR outeaa $ otrada;} 
Vaceouresc $s Clrestrats; 
oeCUcaro TOU r ee rans ) 7 


(* This recursive proc returns tne pointers to tne requested 

— atomic action,sub transaction and transaction. I£ tne 
Broc Gannot tina tne entity requested 4 nil value is 
returned in the oointer, #*) 


VAR 
Cenpcr.s PCratrans; 


(KEKE KE REA EKA KEE RE KR RE KEKE ERK KK EKER KKK KERR RAE KK KERR EK KEK KKX) 
PROCEDURE aawfind (Couteddaptr 3: ptraaa); 
(* this attempts to tina the input aa *) 


BEGIN 
PAP OuUGceaewocr <> nil THEN 
Ir Outudaaptr*,aanid,aaanum = aaanum THEN 
GSutede %= Outeadacptr 
ELSe 
agerena(Outcasaptr” .nxt) 
END; (*proc aa tind*) 


(KERKKKKKEE KE TRAE KA ERT EE ERA ERE KEK ARS RA RAKE KARR EEE KE KEK) 
PROCEDURE finasst Coutesteptr : ptrostrans)? 
(* tnis attempts to find tne input sub trans*) 
BEGIN (¥proc st*¥) 
Th WOtieeste pcr <> nil THEN 
TPeolueestaPpcer seSteid = Steanum THEN 


BEGIN 
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ae cinarCOuUtastaDCr saaaptr) 
END . — 
ELSE 
mincoescr COULoscaotr”.nxt) 
END 3 (*oroc st*) 


(EKKEKKKEK KERR EA KERR EK ESE REKKE ERK EEE KEKE KER KK ERK K RRR ERE KARE ) 
PROCEDURE findetr Coutsetraptr ; ptrotrans); 
(* this attemets to find tne input trans action #*) 


BEGIN (¥*proc tr*) 
Tk Olt reper <> nil THEN 
Pe @m@ewescr.Otcr .trans-site.,initusite 
Pour trepte osthanses. te, crans.num 
BEGIN : 
SuGaouro.= OULLCraetr s 
Pind secouUcetraptr”  ~_Staptr) 
END ; 
ELSE 
mimeo te COUCCE Yap Cr” «nxt) 
ENCO?3 (*proc tr*) 


bol G25 ite) anc 
transeanum) Toren 


(KEKE ER KE EERE SE KE KERR KE KKK EK KER ERE KK KEE KKK KKK REE KKK ERK KER) 


(* main program for find.waa *) 
BeGIn (¥*main*) 


Sut.da@ %= nil; 

CuCasicn c= Mii} 

OUtalr <= “11; 

CCNOCh  s= LLans.Dtr; 

Pang. Gat @8mpctr) ; 
END3 (*meain*) 


(KERKKKRKEKKE REE KERR KKK EKER ARK EEK EK RK ERK AK KAKA KK ERE ER EK ET) 
(KESRKKKEKKE KKK KKK ERE KEK EK KEKE KK RKRKRKAERE KKK REL ERE KE REE KS) 


PROCEDURE selectuwaa (VAR selaenavéuwad 3: poclean; 
Pettanesetantranseptr >: otratrans: 
Varese leag teeter: Cpt rostrans: 
VAK sela€waecptr : ptriaa;3 
VAR seea $: unsigned): 


(* Tnis procedure selects tne next atomic action to work on. 

eit scmemretexecite list, which is an input to tnis 
procedure, is not empty tnen the atomic action to oe next 
axecuted is taken from tnet list. lf tne list 15 empty 
then a random number generator will provide a means for 
selecting tne atomic action. *) © 





YAR 
ieee integer; 
sela.disoose.ptr > PCrareexec; 


BEGIN 
selainavewaa $= true; 
IF reexecuptr <> nil THEN 
(* execute next ga from rewexecute list *) 
BEGIN 
find.aa (reexecuotr*.,initesite, reexeciptr~* 
PUoransemum seneexecoptr™,stanun, 
reexecuptr*.aaanum, selawtaactr, 
SelasSUeben, se laetransent rly 
sela.disposesptr i= reexecuptr; 
meemMec.ptr := reexecuptr*.nxt; 
DISPUSE (selawdisposecptr): 
me selasctrans.otr = nil THEN 
sela.naveiada := false | 
mSeele semaastaptr = nil Ta&N 
selacnavetaa := false 
BUGE IF s@lataacptr = nil Tne&N 
selanaveiaa $= false ; 
END _ 
SLSE 
(* "randomly" select next aa ¥*) 
SEGIN ) | 
(* select the transaction to se next worked cn *) 
select.trans (selasnavewaa, Sewanee aeansabe rs Seed): 


fe ee elle vomdiboeSUSthansactions yet to colnpieste 
execution, tnen randomly select one witnin tne 
apove selected transaction *) 
Tt S@lawnavewaa THEN 
selectust (Selaetave aa, selactranseptr, 
"SelaeuSteDtr, seec); 


(* witnmin tne acove Selectedq suotransaction, if 
an atomic action is yet to finisn, work on 
that, else work on tne next one #) 
IF selawnave.caa THEN ; 
BEGIN 
Semep-aaeCer += S@laaSteDtr*,.aa.pcr; 
AnILE selacaacptr*.stepentm = 14 DOG 
BeEGIn ; 
ie se@lacaa-otr enxto= mid, THEN 
WRITELN (Audit, “ERKOR : selectuiaa ”, 
Geeeicetrving ta select next’, 
" aa wnen none are there’); 
Be lwoadeaper t= selasaa-ptr?.nxt 
END:  . 
(* IF aa is in lock Gueue don’t select it #) 
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Past i@meiaapthastnalLoOCcKkKdoflq = true THe 
S@ela.nave.aa := talse 
END; (* IF THEN ¥) 
EWD?: : 


IF selawnhavewaa THEN 
(* output wnicn aa was selecteua *) 
BEGIN 
WRITELN (Caudit, ’aa selectea tor execution 15 3:7”); 
Melos Caudit, Sie Wa-aa_ptr* 
7 adda toeeranSesitesinitesite : 2); 
WRITE (audit, selawaacptr* 
page ta,tramsasite,transenum : 2); 
WRITE (audit, Selaeaadeptr” 
Paes vaest.aum : 2); 
WRITE (aucit, selawaaaptr” 
ade Suite ain se): 
ARITELN Caudit); 
Bw - 
ak) Ole 


CKKEKKKKKERKEKAKAREEKEREKK ATE TER EKRKEEERKKEKKRKKE RAK KKK KEE KS) 
(KK KEKKEKRKE EEK EEE REKRA KEKE REE KREEKKEKK KKK RK K EK RAKE KER ERE K ETE EE) 


FUNCTION locked (donum : integer) ; boolean; 


Olea ceows 2 0.0, tO see if {ft 1s locked *) 
Lockec := dowarrayfdonum]*.locKk; 


(KEKKEKEREKEE SKE RK SER RKE KKK RAK TERK KKAK EK KR KERR KER EERE KK ERK) 
(KKKKKKE EEK ERKAKRKKRKAK ER EKE RRA KR RR EE KEK KK KEK K KKK KK EKER EK EK) 


PROCEDURE timesout (timecdelay :; inteaer; 
timesaasptr 3 ptriaa); 


(* this produces the time out period for aas whicn are 
locked out by manipulating a riela in tne aa recora *) 


BEGIN 
timesaasptr*,timeoval ;= Cimecaasptr*.timewval +l, 


rie (dtiadwt, “this aa ls in time out :”)? 
WRITE (audit,timecaanptr*.daeid — 
MUGGhSe Ste. ni cas ite ¢ 2)? 
WRITE Cauait,timecraauaptr*.ddadwid 
. etransesite.transanum : 2); 
Hwee (Caudat,titeLeasetr".aaw.id 
wHeanum = 2) ¢ 
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ARITE (Caudit,timewaa.ptr*.aawid 
eaasnum : 2); 
WRITELNC audit); 
END? 


(KER KRREKEKK KKK KKK ERR KARE KEKE TEAK ERE KEKE KEKE EE EKER ERE REE ESE) 
(KKRKKKAKKRE KEKE KEKE RK RRR EK KEKE RK KKK KEKE ERE KK ERE K ERK KE AK EES) 


PROCEDURE acquire.slock (donum :; integer; 
acqeSt.ptr ¢ ptrastrans; 
aCGeaa@aPptr § ptradaa); 


(amimiSs  bOCKS the Canpgec ao and £OFmMatsS a msg tor every site 

ec wenicmethe do fs reolicsated. If ene tarset ao is not at 
PerseStee, ChiS Croc S@€csS tne suo Crans tlg es forKkcina and 
packages the sub trans travel msq. *) 


BEGIN 
(¥insure tne data obj is in use¥) 
(*mSg for forking sud trans & replicatea data for iocKs*) 
If dicwarrav({donum] = nil Tones 
ARITELN Caudit,”°LOcK attempt on a data od) not usea’ 
,donum) 
ELSE 
LIF dgowarray{Cdonum)*., lock THEN 
WRITELNCaudit,"attemet to lock a locked d.0. : ” 
,donum : 4) 
ELSE 
GEGIN CF dil * ) 
do-arrvawidonumi*,lock.oty := Uv; 
ao.w,arraytdonumj*,lock i= true; 
WRITELNC audit, “locking data obj’%,qaonum : 4); 
acieaaeptr~,naveilock “= true; 
ExDe Ce LoL *) 
END; (*acquireclock#) 


(KKKKKEKE KKK KKK REE REE KEKE KKK KEKE RK RE KEKK KEK RRR ER KE EE KEKE EK KE ) 
(KRKKKREKKKKAKKE KEK AKER AAR KEKE RAR KK AERA KARE KER EK KEES EKK) 


FUNCTION jSwatesite (donum s integer) = poolean; 


C* tnis returns true {if tne data onject citea cy donum 1s 4t 
eliiusmseeteme false 1£ iteis not *) 


VAR 
Gurdives.: DErad 1c > 


BEGIN 
iiss a teisceewes := false; 
Guna := diccanmmay(donum): 
Tt Poemecumalc <> end] DO 
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BEGIN 
Wee CoG es lceCelG = Giclarray(O]*.sitej1a Ikks 
HSedtestteuss true; ; : 
Se nmedciss curdic*.nAxt: 
SND: : 
BND» 


(EK KKKKEKKKKE KEK ERE KK KEKE EKERERKRKEEK HE KEK EK KEKE KER KEK EEE KE) 
(EKREKEKKKKK EKER EK KKK KEKE KK EK KAR EK ERE KHER KEK KK EK KE REE KK KEK EX) 


PROCEDURE lLoadtv (ao.id : integer; 
FOatmeveower 9s PCLILV; 
Oem woteper 2 ptrastrans; 
loadedasptr 3 ptreaa)? 


(*¥ this loads tne newly created teme ver Dointed to py 
modGasier soll eee nmaata pPOlmMEed Eo Sy lLoaaqcaa@ifctr ane 
headssta. ctr *) 


BEGIN 
Moddsevaptcr° .adaetdetransesite<initusite <:= 
Voadiaao0tr- .aalid.<ransosite.initssite; 
Poagstveotr~ «dasld.strensositeéstransonum := 
loaqcwaaaptr*. a€anald.transesite,transanum: 
Load. tVaptr*,aanlGeStanum i= lLoadsaauptr*,aacid.stonum; 
Modeetmyectr~.aacid.daaanum : loadsaaaptr~ aoe daa Milk - 
MOSCONE OUL .aaeil0<leaweat id Noacdeeteo ch daacld.froveLig: 
emcee eDene agaala.,d0sia <= loddceaaPtr®.aaia.cdo ia; 
Nedeetyveotr-.adeal@.ecnaseq $:= loacuadoctr*.aa.id.chaseq: 
Pomdeeveser ada. idam@rrcic t= loac.saecotr~.aani1d.7etric; 
fedadsiavectr’.nxt 2= nail; . 
loadwstewptr*.netricusum := loadedaacftr*,aaawida.metric + 
eacest=ptr-.metric.sum: 
Loads uvegeramanecslc.sum : MOddas Caepth ~TetCriccsul; 


ree ff 4 


JL 


(*update ch.seq in de perm, place in new tv recora*¥) 

deowarray(dowiaj*.cnaseg := dowarrayidowid]*. cn.seq + 1; 

loadidauptr*.aaiid.cnoseg := dosarray(dowid]*.cn.seq; 

loaga.tVeptr*.aanid.cn.seg i= donarrayldosidj*.cnseq; 
END? 


CKKKHEEK EE KKK EER EERE ERK KE KEKE ERK KEKE KA ERK ERK ERE KK AEE ERR EEE EX) 
CKRAREKKK KEE KKK KREK EEK KKK KER TE KKK ER KE KEE EKER AHA K REA KE KK ERE) 


PROCEDURE sortold (curcna $ ptracn; 
dowid : integer); 


Se weet eoedetameea LISt Gf conriict nistories into the 
data onject Gcomtiicatuaistory List, in sorted order. Tne 
MEW Dist is pointed to sy curcnha and the data ooject is 
identified by the dowid input, tne ao cn nas a neader and 


1 5) 








SS ee a 


Ematler record *) 


VAR 
ones enap er ,Oasae®Cn,CUrCnD ,blacn : otr.¢cn; 
SaLtocn .s PtreChepair; 


BEGIN C(*¥ri1*) 
SOG CSGnoetr := curcna; 
mutiieeGOrtachamtr <> nil Do 
BEGIN (*¥r2#) 
maisecnh i= do array(doid)]*.ch.ptr; 
Gereno $= basecn*.nxt;: ‘ 
Mal Gemigtmenocmdestd.transeslte,initesite < 
SomcaGmMeetr-.aé id.trans.site,initesice Du 
BEGIN (#r3*) _ 
beasecn $= curcno?; 
GUreho $= GUrchibp- .nxt; 
ENDS? (¥r3*) 
Pe curcnpeeddertcasethansaesite.initasite = 
Son tecnaoptime.dadoid.trans.site.inituwsite Inth 
Le WwieesorPecnecCtr*.aanlc.trans.site.trans—fun < 
SuLCmOeveageld.,tremsusite.trans._ntm) Trek 
PHBE (curcho-.d¢a_ia.Ctransesite.init.site = 
PsoOrt=chectr:.adaia,trans.site 
einitesite) ana 
Csomesehe per -acala, trans._site 
trans=num > Curene*.aa.ic.trans.site 
Zoransanum) Ge ; 
BEGIN (*#r4g*) 
pasecn := curcno; 
SuLChbase= CUrCOD .nXTt : 
END? (#*r4%) 
Newt pldcn); 
Newcpeircn)> 
puoemestairasptr += OCalrcn; 
pgeneems: '= basecn-.nxc: 
pasecnh*.nxt := oleecn:? 
memenGiow added s= SOrLLCHNAptr°.,pairiptr*.aaild; 
peren-.metricusum $= : 
SOmMeEaGiawt rs voohhrapctnr>.metriccsum; 
PriuGhomecsia $= SOFt.ch.oCr”* aaid: 
Ome Chee eum SOrtLCn.ctr*.nxt; 
END? (#r2*) 
ENDS C#r1¥) . 


(KKK KKAKKERREKKE RRA K EEK AREER RE KE RE KKK KEKE KEKE KEK KEK KKK KEK EES ) 
(KRKKKKKRKE AER ERE RAKE AERA KEKE KEK EK KKK KKK EERE KKK KKK KER KK EEE) 


PROCEDURE linkpbla Cinesendsptr,ineaccept.ptr aL ee en ay 9 4 


(* this adds the mempers of tne conflict nistory link list 
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Poumeeags to OY Inasend._ptr to the List pointed to ny 
Saeaccept.ptr *) | 


VAR 
MmuiGigemmoereoch,; Ll INnKeptr $§ otr.cn; 
nupair : ptracnapair; 


BEGIN (¥*11*) 
linikeoer := incacceptwotr; 
Bieaeecn wis Inasend.ptr; 
REPEAT 
Promo encoemagdeGaetadscranSeaslte transanum <> 9¥99 LHEN 
BEGIN (#12*) | | 
NEw(nucnhptr)?; 
NEw(nuoair); 
HlcmOumesDatreorr <= mueairs 
higeaiPosd@asid i= ptrtocn*.peireptr*®.aacid; 
nupalr*,metricosum := 
mec OCl .sLalrectr-.metric sun; 
MUGMIIE Re wdeaic *>= Dtrtcoch* aaia: 
Alice «nxt °> nil- : 
Mince oenre.nitt. 1s nuechptr: 
Linke@prir ¢= nucaptr; 
END? (*12¥) 
Strtcen ws ptrtoch> nxt; 
UM ep trtcoen = nid — 
EnD? C(*11¥*) 


CKKEKEEKKKEKKEKEKKKEKEKEE SESE EKER ERK ERE E KEE KKK KK RK KE KE KS | 
CER EEKRKREEK ERK EERE KEKE KEES ERK RAS KR ERK ERK KK KK RK KKK KKK E ER KE) 


meOChOUURE  -copy.jCto.tv (curcha § Dtr.cn; 
CCN an CV erie r ssa at Ve 
qonum =: inteyger),; 


(# Link the conflict nistory list pointedq to by curcha 
LO theenewty created temo version to tne data orjyect 
pointed to py aonum *) 


VAR 
Gircmbe: ptr.chn? 
paircn mee lceechacair? 


BEGIN (¥*¢1*#) 
NewCCurchh); 
NEW€pairchn); 
Gumeme- weairiotr $= pairch;? 
Gomme yotVecer=stVeCheptr := curcnb; 
Sai wemenamwela $= curcha*.pair.otr”,.aa_id; 
Pan remeenetricestim t= curcha*,Oairiotr*? metric.sum; 
curcnb’,aa@eald := curcna*,aas.id} 


ep 











CUuUbGAbosAxt <= nil; 
C*#I£ more cn recs tnen link tnem in to tv cn*) 
Mec unena «nxt <> nil THEN 
imeee aC Cumena” .nNxt,copytv.tvaptr®.tv.cn.otr)? 
END? (#O1%) ' : 


CEKSERKEKATEKKEKEE KK EKER KEK KARE KKK KEKE KK EKER AER SESE KF EK ES ) 
CKKKRKERKKRAT KE LER KEK RK RE RK TKR K ER KKK RR EK EKER EKER KK REE ARERR ESE) 


BPawGevURe Copy.toO.St (curcha $ Otr.cn? 
copyst.Steptr : ptrastrans); 


(* Link the conflict history pointed to oy curcha to tne 
seticms POlnNted LO oy COpyStcstoptr ¢#) 


VAR 
curcno 
pairen 


PCraer: 
ptr.cn.pair; 


SGEGIN (*#si¥*¥) 
NEWwCCUrCHD); 
NewCpalircn); 
GurCGremascarnectr 2= pairch;: 
Sainene.aasla Y= Cumchnateewmairaptr~.daalid: 
Eaircmermmecricasumus=] cuirena- ,Sailractr®,metric.sum; 
eeincooeead.ld <= curcha~.eaid? 
SUnecnoeenxt $= nil? _ 
SOOV seestaptCr-,.StoGmotr <= curcho: 
@uironeare GO ¢h, link them in to st ch list) 
morcUurena .nxt <DSenil THER 
neo la CCulsGmia. «fAC,CORPYSCUCSCoPEr*.StC.CNH.APCr ) ? 
END? (#514) : 


(KRRHKKHKRERKK KARE RRR ER AKER ARE REEL E EK EKER AER RAK RKK KKK KKSR EE KE) 
CE KKK KEKE RETR KEKE KEL EEK AER EKA A KK AK EKER KKK EK ERR ERE REE ER SE) 


PROCEDURE Installtyv Cinst.aaocr ; Str.aa? 
Weis Ca] 5 (aetYy..3$. otrostrans;? 
WAS tc. tC VRC os -Otraty)? 


Me=omi@ee diss a temp ever at a Gata O53 ds Per tne action 
Qf an atomic action. It also copies any conr nists tO suo 
trans or/and data onjs or/and Cemp vers as necessary#*) 


VAR 
curpchnancurcnD,folcnd,foleho ; OCT acn, 


paircn : ptr.chapair:; 
donum $: integer; 


BEGIN ara) *) 
donum := instwdavptr®.aasid.dowid; 


ee 












) - 
Mi 
ji 

7 | 

, 

i 


4 
a ‘i 
a) ee * 


es 











(*¥load the temo vers fields*) 
Moachevecaonun, NStalVeDEr,IAStISEGLtr,instiaaaptr); 


eyconmect the contlict histories ror do,tv ana st*) 
MoGmmornlageis ali cn”’S are empty®) 
PNG sOnmarrayteonum)] “.cngptr* ..nxt*,aa 1d. 
transesite.transeanwtm = 9999) ana 
GUNStTISt.DEG° .StaCNewPEr = N1l)) TREN 
BEGIN (*#12*) : 
(¥do {£ stech not emoty and do ch is empety*¥) 
ive Cacmenrraytaonimi®,ch.etr” _naxt*.adiid, 
transeasite.transenum = 9999) ana 
Cons cos Gatun ScacNamtr <> nil) THEI. 
BEGIN (*13*) 
(*#linkK cn to do perm*) 
GUEChOns=wTOStesteper ,.St.chootr; 
sortold(curcha,donum)} 
(*#link cn to tv*) 
Cobeoniewet=instaeect Ctr”. st.chptr? 
Gooweconey ( curcna,insta.tvoptr,donum); 
END (*i1 34) 
ELSE 
C20. JEeSt Gh ts emMpty ana do cn is not) 
TPeGdoesrray -domumi “,enectr~.Nxt*.aania. 
' transesite.transeanum <> 9999j ana 
Guns cesteper-.stecmeptr = nil) TRE 
SeGIN (¥*14*) ~ 
(*Link do ch to st cn*) 
CUrecm@a w=" cdaerraylconun)*.,chaotr* nxt? 
SOpVmeOest (CUrcCha-instasteper); 
END (#*14*) 1. 
ELSE 
(SENS Leese Ch andeco ch net emoty*) 
PoemGdOnad Guay (CORUM Gime cl, Xt ~acald. 
' transesSite.,transSanum <> 9999) and 
GruisteGremoGrerscecneotr <> ALL) Then 
BEGIN (*15*) | 
C*#lind st en to tv cn*) 
CumGnami= Instectecths.s ta oCnaotr;> 
COeveuoe ec! CcunciayinstacVY.otr,donum); 
(*Cosw St ¢€n to do ch*) 
Gitnen aes = nisiears oD Cr ~,St.ecn.oOtr? 
sortold(curcna,donum); 
(#wecorvyrdea.en, to st ¢n*) 
CUGChems= GCoearraylaonum)”.ch.otr”.nmxt; 
SObverOest Gcurcna,yinst-stptr);  — 
ENO? (*15*) | 
Eno (*12%) 
ENC? C(*i11¥*) 


(ERRKKRARER TAKARA AKER ETE EEE REE AKR RE RK RK KK EEK KKK ERK EX) 
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CER EKREKARREKAREK AKER KK RK EERE KAR RAKE ERR KEK KEKE REE KEKE KSE ) 


PROCEDURE cCreatewtenp.aver (cresaaaptr > Otr.aa; 
CreeSteptr : ptrastrans 
ene raOtr > ptratrans), 


Sees coetara lls ed tempeversioneat the target date onject 
and places the sub tran’s contlict nistory in tne temp 
version. it al1s0 up= dates tne conflict nAistories at 
the data object and at the suo trans *) 


VAR 
Sop cea xk Gat venptr,cre@.tVaertr : otritv; 
curaost,curst : ptrach; 
bPpeooececnt,d0mum : integer? 


BeGIn (¥1*) 
GOnum <= créetaaeptr~” .aawzididowiid:; 
IF iswatesite(donum) THEN 
BEGIN (¥#1a*) 
WRLITELN(auGit, creating a temp version sor:”); 
wkITE(auait,cr es thaptr™ Senensi= Sree. inate s ite $2, 
Greece rarelr trans. Site. transenum : 2); 
Dre caudit,ecreast.Ptr°-rsteia : 2); 
WRITECauait,cre. aa-Ptr®,da-1d,aaonum 2). 
WRITE (CQuaLt,crenaanftr*.aasia.,acowic 3 <); 
WRITELACaudit): 
C(*#install NEW temo version and Lts cné#) 
Le doe arrayidonumj*.ctv. ptr = nil Then 
SeGIN (*2*) Eno nev 7S at ao"%,) 
beta tial la laa ae 
OEAeCrGstvVectr): 
PeLciicdierc- ae. cre. ar, 
Cres eVvaD eric 
oe eaatavwindOmumias e@iewer ¢= Cre.Cviptr; 
END (#2) 
ELSe 
BEGIN (*3¥*) (¥aT least one tv at ac*) 
Semoey <= dOsarraytdqonun) “.tv.otr;> 
WHILE temptv*.nxt <> nil DU 
cempty := temptv*.nxt; 
NemecereetVepur). 
sea tlevicre@adaeDtr,cre=st ctr, 
Beret yec er) 
Memeuy sixtee«= GCLle@stVopCtr? 
END; (*3*) 
END (¥*1a*) © 
ELSE oe 
ARITELNC’ERRORscreatetempver called wnen d.c. not”, 
Ue vats ite’) 
END; (x1*) 


oe 





(KEKE KEKKKKA RE RE KE EKER ERK EEK K EE KR KERR RK ELE KAR KEKE KER EK EK) 
(KKKEKEKAEKKKK EKER RK SEEKER KEK REE KARR RRR AK RK E KEKE K KEKE KER) 


PUNCTION detect.conflict (dowid : integer) : ooolean; 


C* Inis function determines {Lf tne latest teme version 
createaq has causeda a conflict at 1ts data ovject. If so, 
tne boolean is returned as true; if not, as false, ) 


VAR 
m—rootVYeectr §: otr.tv} 
Gomtiict : ooolean: 


BEGIN 
Gonftlict = false}; 
TEMPS tveantr := do.warray Laowiaj".tva.ptr; 


(at Ceo semeemMmmvers wom 15 a “WRITE” and it is noc the 
only temp version tnen tnere 15 conflict *) 
DE cement Vaobtr <> nil THEN 
BeGIn 
meee (( Lemme CVePtr° .sadald.,reWefllG = *w’) ana 
DC Memestverptr“.nxt <> ail)) THEN — 
Covngpictcmm= true 
ELS& 
CeOmbeEveDet ao= LCeMmoStveDtCr” .nxt 
END; (* IF ¥) ' 


(* search all remaining temp versions for a °wRITE’; If 
one is founda then tnere iS conflict #) 
SripmeeCLeMostVertr <> nil) end (Conflict = false)) vU 
BEGIN 
Pe eSioeLVeecr sa@eldercvwaflg = “w* Then 
Pogei1ce = true: 
Senomewenter t= tempowtCVaeDtr* .nxt 
ENE. (* woILe *) 
GQOSPSteconftLlict := conflict; 
ie COtpetict TREN 
WEEbteeee CAaUG1E, €COntlict is detected at "*,do.wid =: 4) 
ELSE 
ARITELN Caudit,’no conflicr is detected at °, 
; dowidag : 4): 
END; | 


( FEERKKKRREKEKKKKAKK KEK KKK E REE EE KER ER EK EKER ERK ERE KEK EK EKER KS) 
CERREKKAKEKHERK EK EKER KERR KEK KKK ERE KEK KKK KR EKAK KKK KK EK EK KEES ) 


PROCEDURE detmoconflicts (doula ; integer; 
VAR CUrrecnoptr 3; ofracn); 


(# [nis procedure determines wnich temp versions conflict 


i332 
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Ween tne most recent temp version and it constructs a 
Tinkea List of tEhoBe contlicts, lt aSSumesS a 
conflict exists, #*#) : 


VAR 
Setipaecnaot® $$ ptr.cn;> 
Memroepairoptr : ptr.cn.pair;> 
DOM eve er, LASCW.CVIPCr : PtretVv; 
Pets integer;: 


BEGIN 
(* determine the conflicting temp versions *) 
Pepetmveren s= G0n.array (do.id]*,.tv.ptr; 
Was @¥ecveptr $= temp.tveptr; ; 
WHILE temp.tvaptr .nxt <> nil oU 
SEGIN : 
Pentemeetvye Dect eaaslid,reoWaflqg = “Ww TREN 
Masm@wetvoptr °*= temeutvptr: 
Lenpewmueser «= LeONimtVaper = «Nxt 
ENG 


CARS GOmseGuct tne Linkm@s List of Contilet temo versions #*) 
ee TCourr.cn.pt hoy 
Bene cha pcr ¢= CULFTSeChaeetr 3; 
MoIiLeE la@stwitveptr <> temputviotr oo 
s2GIn 
Cems cnatumeeaaeta t= JaSCwetVoptr*.aa.id; 
News (tenperatiroctr); 
anon ciee ene alretsr t= Cempapalrootr? 
Boe Oal Peat G o.aeald <= temep-tvoptr*.aacic: 
Bene et ane pe oe eecricCosum t= leastwotveptr*. 
M@tricusum + tempatVvVaptr*,metricusuMm; 
asec yaeoer, «= LaStCwWotCVootr™ .Axt; 
PY LasStMyecveectr <> temoutveptr [HEN 


BEGIN 
React OS cp Cl a. ecan lost aWeLlg = “wo Tren 
BEGIN 
He’ (temeachaves 0X), 
Levee chatoeme,= Cemopecnoptr” .nxt 
EwO 
ELSE 


LastwotVaetr s= tCempctvaptr 
END (¢€* IF TREN *) 
eND; (* WHILE *) 
SeiCeehnepcr = .nxt <= nil; 
Wel teeGalait, cConrlict nistory constructed at *,dowida); 
ENOS 


(KRKKKKK KEKE KKK KK EERE EAR ERE K EKER EK KEKE KEK EK KER KEK KEE KEKE KS ) 
(KEKE KEK AKER EKA KR AEEE ER KARR KEKE KEE RK EKER EK KKK KR EKA KEK AKER EX) 
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PROGmMDURE ftind.tv (initesite : cnar: 


(trans.num,stenum,aaenum,qaowid 7 iatecer; 
TAneOUCD Ent ptraty); 


Sa Tees B@CURRS a pointer to tne requasted tame versicn 
Gomteper), If the regquesteo temo ver 18 not tounc the 
outptr is returned nll *) 


VAR 
SaePeuw. -P Gleb s 


BEGIN C(*proc#) 
Dyce rreyladooladi ” ,.tCYVeaptr = nil THEN 
QUSEPtCr ~.= O11 
ioe 
BEGIN (*2*) 
(*find tne right tv*) 
OWERPtr .= ni); 
Giieope ue. = GGunarreyladoc1al°.~CVeaeptr; 
REPEAT Gun licurlen = Mil Of Found) 
MmmCCUme Gre. aacld. CY ansas ite, 
Ciiresite = initesite) and 
CSuUTRCr=.ae¢el0, Chensasite. 
eEansenunm = ransunum) and 
Ceureereneaatc.Sstanum = 
: Stanun) and 
CEUTPEG” gsadalo.adqda.nln = 
aaawnum) HEN 
OUEDtY s= curpEr 
ELSE 
GUEOEN. 8 = CuUrDer >. xt 
Pinu Gener = itl) OF MCOULDCY <> nil); 
END; (*2*) 
END; (*proc find tv*) 


(KERKREKK KA KEKE KE KKK EK RE KERR ET KARR KK KAKA RK RRR KK EKA KEKE KKK SE) 
CKEKKEKKKKA KEKE TREK KER KEKE RE RAK EKER KKK AKER EKER KE RK KAR RAKKS) 


PROCEDURE Constructaprec.rel (acid : integer); 
C¥tnis determines current conflicts witn tne newly aopenaea 


Cenme  vemociton ana adces tnese Confkticts to tne do contiict 
nistory in sorted oraer and to tne subtrans ana tv asap Sm.) 


VAR 
COijiecoeetr, + VLEV,CVLSt ¢$ ptricn; 
@emotreptr $; etr.trans; 
Coneseocr * etrostrans: 
GOno-eeaeetr * Otr.aa; 
GOnemycD On © otr.tv: 


initwsmite : cnar? 
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Cransonum,st.num,aaanum,donunii eo 20 beger; 


BEGIN (¥*0Oroc constpr*) 
i rieetoaudiuiy secOmse orec Fel at d.0.,. °,do.1la); 
Gemecmaecr ¢=" nil? 
deuneeoame11CtsS(do.id,conacheptr): 
(*¥add tne NEW cont nist to the dala onoj perm record) 
Bor toma (conacnaptr,acd.ia); 
initwsite := 
Seca  sO0@1baOtl «sdaaeld,t€Fransastte.init_£site; 
transanum 3= : 
Sopecierens.paeroplr sedadeta,trans.site,trensonui; 
Soememme s= cConchiotr*.salractr”.aawid.st num; 
a4onum $= cona.chaptr*,paireptr’*.aawid.aaanun; 
ZOMG = CON. ComO@Er” ,Oair.ctr® ,aaeia<ao.id? 
(*ada tne NEw conf hist to the sus trans cont*) 
find aa(initasite,transonum,stonum,1, 
Gone dao tcycenastaltr,conatr-etr): 
De CoOmesteeptr = All LHER 
BEGIN 
wRITELNCaudit, "attempt to tind st tnat alanot e€x15t’); 
Wee TELNCaudit,”“ in proe const prec rel’); 
wRITELNCaudiC,initasite,transenum,st num, aacnum) 
END ; . 
SiS « 
Se2GIn 
Meee con. st.ptr-.,st.jcnhaotr = nll THEN 
Sooo tOesc( COMecoiao Gr, COn—StaerCTY ) 
ELSE j 
BEGIN 
CV Stee -=eCONeStaptec «eStcensotr; 
Weta CV1St*.nxt <> Aid OL 
CVlLG@ 8= CvViswe .nxt; 
Tinkoratconacniaptr,tvVilstc) 
END; (*#Ir*) 
eEND$ 


(*add the NEW conf nist to the temp version*) 
findwtv(initasite,trans.num,Sstenum,da.nun, 
GoOnunmncon.CVetrtr)? 
TF Go@etveotr =mil ‘THEN 
BEGIN 
WRi@eLbeCaucit,° attempt to find tv that didnot exist’); 
WealpebNwCaudit,’in proc const prec rel’); 
AQiveuNCaudit,init.site,ctrans._num,stanum,aa.num) 
SND | 
ELSE 
BeGIN 
ee Geme CV.PEr~mtvecneptr = nll THER 
Cor yeeeacy VConacnarcr, cOnatVootr,donum) 
ELSE ; . 
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BeGIn 
MAweeVvers= CON. EVaOCr  ¢tVeChaclYr ? 
WHILE tvltv*.axt <> nil vo 

Bylev = veya CVoonxts; 

Gime CComeciamtr, tVLty): 

END? C*IF*) 

END; 
END C*Droc constpr*) 


STE TET TTT ESTE TSC TC ESCCSSSOSSS IS SCSCLS OCT SSVI SES TTT eT eee eS TT ETS 
(KR KKEEERKRKE TREK GEKA EEE RARER AKA EK MEK EK EEK EER EKRAKE TE XS ) 


PROCEOURE set.s (do,id s integer); 
(* sets s to tne nummer of temo vers arter tne 1S8t wkKITE *) 


YAR 
Memueev.DCr : Ptr.cVv; 
s 3s integer; 


BEGIN 
temp.tveptr 3:= dowarray (dosiaq)*.Cvaptr; 
S $= 0; : 


(* Skip over all "read" temp versions #*) 
me Cees cVeptr <Seainil CHEN 
BEGIN 
mie (( b@MDPCEVCSUEr” nxt <> nil) 
Smoamcr( ter petVeptr.caeidad,reWerld = °r’)) ud 
Bemeetvesorr := temoatvaptr-“.nxt; 


(¥ count tne ot teme vers arter the ist AvkKITE *) 
Pee hoe eve OCT 7adaidsroWarlo = “w° THEN 
wc temootveetrsemKt <> nil o0 
ZeEGIN ; 
§ 3s= s + 13 
Senoee Vaspici.s =acenPDeeVvootroe . Axt 
END : . 
ENU? 


(* save the value in data ooject’s permanent RBECOro. =) 

ao-ereew (2O510)}7,S.cnt 3:= s; 

Pe Tepeeaualt, “tne value of “S" was set tc >: ",S : 4) 
END: 


(KEKEKRKEEKEKKE KART ARK KA KKK KEE REE RETA EKER KE KEKE KEK KEE K EE KEKE) 
CKEKKKKKAKKEREK KEKE RS RE RAKE ERK ERE KEKE KK RE KEE ERE K EKER KKK EKER EK) 


BRO@CEDURE Copyoch (choptr : ptroch; 
VAR relaptr : ptrocn); 


es 





(*¥ this procedure creates a copy of a conflict history 
passed to it *) 


VAR 
Oidebtr, hkwoptr : str.chn; 


BeGIn 
TF CGheptr <@ nil YtHeN 
BeGIN 
NEw Crelaptr); 
NVEW.WDtr $= reloaptr?; 
Oaosper <= Cnootrs 
WHLLE Old.potr <> nil veo 
PEGIN | 
NeEwMEDr ew edaatd ¢<= Old.otr*.dada_ia: 
NEw (REWeetre? pair ptr)! 
NeWEotre.cairoptr*.aa.io := olawetr”. 
: fe Soa ptrscdaciae 
MerveCtMeweeilroptr*.metriccsum := 
CHdeour es pair altr smetric.sun: 
Odecer 2= Clacotr *. nxt: 
Te Obadacts <> nil HER 
BEGIN 
WEAN MEW DEPT? .nxt); 
WEANePCY $= NEACOtr*.axt 
END C# TF THEnw *) 
END? (* aniiie #) 
Memo coo nkt ss nit 
END : 
eLSeé 
remeotr <= nid 
END 3 


CKEKKRKKK SKK KME KKK EKA KEK KKK RAK KK KKK ERK KEKE ARK KK KAR KK EEK EK) 
CEKKEKRKEKKAEKKAKK KE REKR ER EK EEE KK EEK KEK ERR K ERK ERK KKK KER KEKE KK) 


PeemmURT  gem@ecc NnONesr (CnNaCtr : ptricn; 
VAR nonwsr : poolean; 
Viaeniee oe pet 8 “OCT Ch.) ; 


(* [Tnis. procedure will determine it there are any cycles in 
"tne contiicet nistory linked list witn neader ana trailer 
Pricing input fOm1t, wif so, tnew™ooclean ’non.sr’ will 
Oe SCrue ana tne peinter “reloptr "Will point to tne 
Teen Mochi lL Lethe ulscOnyY, SHUN Medcer and trailer which 
Contains the evyele(s). I1£ not, the poolean "’nonusr’ 
will ce false, *) 


YAR 


BasceCacer, Le@adiptr, followoptr, bldptr,erinteptr : ptr.cn; 
Cibptdomn ; Stre.cnopair: 
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cnange, found : boolean; 
Givesad)s Chetairerect; 


BEGIN 
Premawe a CODY Of he udata oojyect”™s Cconftlict nistory so 
that it can oe modifiea *#) 
WRITELWN (audit, ’entering detectunonasr’”); 
Edeyechn CChaptr, rel.p tm; 


(* detect cycles py deleting conflict pairs wnicn coula 
NOT be involved in a cycle = tnose wnose 2nd element 
mever appears as Aa ist element *) 

REPEAT ; 
cnange 3; 
pbase.ptr 
foliowep 
lead.ptr 


lse; 

s=  TelepDeCR awk cy 
Lr $= rel. 

[= basesectr; 


= ia 


wHILE basewptr*.aanaid.trans.site,.transaaum <> 999Y OU 
5EGIN Z 
rouna 3:= false; 


KEPEAT 
beageoer >= Leagdeceraanixt; 
fe WOCveadeaper wadiid.eraens.site.initasite = 
Daseeptr scewsmeot rsweaetiactransasite. 
| aa tht ces eG) 
ana (leeadactGr-.,aasliastransasit e« 
, ; Trance) = 
BaS@ocolr” «sCamromtne -ea.1d. Geansaosite. 
; transanum)) 
TREN 
BEGIN 
found <%= truer 
beaAgSee Gane eeaalte.cn.Seg 3:;= 0 
FivD : : 
Hitbopec( £OUNd = true) oF 
WGleaduptr*.aasicetransesite.trans num = 
| - : 9999));3 


IF found = true Toa 


SeGli 
SOLLOW.WPCr %=mepase. ocr; 
basewotr := oaseuptr*.nxt; 
Lead@pts s#© rel.ptr 

END (* IF THEN *) 


ELSE 
(* tnrow out all pairs with basewptr’s una 
element = cnaia *) | 
SEGIN 
cnange := true; 





Cneid,aanwid.transasite — 
oaseaptr“.pairoptr®,dawid,transisite; 


(* delete Fair basS@uwptr polnts to, ana 
Peco emuoOvinGgsbase.ptr until meae 
is not deletea *) 
WHILE ( (basenotr*.oairoptr*.aaald. 
tmansazsite.,inltesite — 
= “Chad.e.c aa. Vemecadnseasi te. LNiteasite) 
and (paseaptr~.pairootr*.acwic. 
transeSite.transanum 
mcCheldrvadata.,transauosite. 
tranSenum)) DU . 
re Ea ; 
HOMO eOt ro wax e ta Dase.ptr*. nxt? 
DaSeaiS tr t= oaSe_DCr™ «nxt 
ENO; (* wHILe #) 


Ce peowmsoeacenrrronm SegIinninc of List for 
Blairs tO throweout *) 
EOLIOWSOCYr 3= Feépveotr; 
Meace per «= P@l.per".Axt; 
WHILE leadsotr®.adaiu,transsite.transonun 
<> 9999 ud 
BEGIN 
IF (Cleacaestr*, calreptr”.aaaid. 
| transesite 
wlnites teers Cha ld¢adccid. 
EDransesct we 
einitesite) and (leaceptré= 
Biseer it fc ee 
Senahisesc eee eranseanun = Chawid. 
@anid .trans.site,. 
transenum)) THEN 
QEGIN 
followaotr® Sale. ees 
PeqdcsOehoc pmats 
leceeocr +=) Lead. otr-.nxt 
END (* Ir THEN ¥*) : 
ELSE | 7 
SEGIN 
SCONE Ger = Lead.ocr: 
lead.wptr := lead. etr®™ Hob ae 
END (* Ik ELSE #) 
ENO: (* wHILE *)- 
leadm@etr %= relioptr: 
Pol \ewectrea:= relacetr 
END (* JF ELSE *¥) 


eno; “C¥ WHILE *) 
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(* Lf no otner cnanges nave oeen made ana if the tirst 
element of a conflict Pair appears nowhere else, 
tnen throw tnat pair away *) °° — 

IF cnange = talse THEN | 
BEGIN 

COplOweOLr “3= relootr: 
YeacSetr := reiloptr* nxt? 
WHILE lLeadwotr <> nil LO 
[F le@adootr*.aanma.choseg = 0 THE: 
BEGIN : ; 
MG =leadeetcr” ,@aena,trans.Slte.trans.num 
<> 9999 THtn 
Peadepew -sadald.,ch.asea<.= 1; 
fFOllomects := leacuptr> 
P@adsetr := lLeagsetr” .nxt 
END : 
ELSE 
SEGIN 
MOmlONGeeEG .NXGery= Leadcptr* nxt; 
Peadecer <= leadas=str>.mxt; — 
ecnange := true 
nD 
i Ce Te THEN *) 


UNTIL ¢cnange = false; 


C¥ SMe the scoolean "nonusr’ *¥) 
Pe eee OCT Nx e eGauld,ctCransasite,trans.num = 9999 SEEN 
Nonesr := talse 
ELSE 
BEGIN 
Motesr °= true; 
WRITEUNCaudit, “detect non sr aetected non sr’); 
WRITELN( Audit, “cycle 18 : °)? 
M@rimeootr s= réeluetr*. nxt; — 
Gal ve orunt.otr*.nxt <> nail Dv 
BeGIN 
Pelle ow aucwmeemer INt Ctr” .aauwid.trans.site. 
RiGpse ewe e es) 2,Printaptr*.aanic. 
Seance stigenehansenum 2.2, ° 
Deweaeeleenadaltoegs tami 5s 2, 
Bolmctectregdasic.adenun <¢ 2, 
Mme onimceptresodifeotr".4da.id. 
@iansesite.initsite : 2, 
DEMO DCr® ,Palrocrtr”,aa.id. 
CHaAMsesIcestransonun $ 2, 
DEiMt.O etme, -alroptr*,.aa.id. 
Stenum 32+ 
Dorn cacti magoaiheoptr”.adaid-. 
Berio li Iaaeey 
Srnec per {= prints.ptr™.nxt; 
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ay 


CFR FKKKKKKKKRK KEE KEK EEK KET EKER EERE KK EKER KERR KEKE EER RK REE EERE?) 
CHEREEKRE KEKE HEE E ER KEKE EKER KER EK KKK RRA E RRR EER KR KKK KR ER ZK) 


PROCEOWRE determinetroliback (reloptr 3: otr.cn; 
Vinee om loacksotr ¢ otr.en > 


(* Tnis orecedure, when passed a conriict history linxed 

Deepist Pom@mted to by “reliptr’, will produce a new linked 
PescmorCONfeLce NLStcry Dairs Which, wnen rolled oecx, 
Will eliminate all present cycles. Tne input list aust 
Ma vemwas header and @failer, the owrput list is built 
witnout tnem, *) 


VAR 
Somoeeer, LOlLlOWeaDEr, CODYePtr, add.adtr $ octr.cn; 
small : integer; 
eve es boolean; 


BSEGIN 
rolloack ptr := ALL 


Mt cocy Ere CONELICtM@imstory linked list ™» 
WRITELN Caudit, “*entering determinewrollnacx’); 
Sooveen (red@aptr, cooy.otr); 


reer at 


(seerind tnem@gomelict palr wlth smallest metric.sum *) 
Cameeotr s= COPY.DtEr” -Nxt; 
Siiepsimes= CeMmccotr” ,palreptr”.metric.sum-; 
REPEAT : . 
Mee womemoer fgOalroctr” .metrlic.sum < small fret 
Pacman = CeMnpoectr: .Paifreoetr“.metric sun; 
Seno er «= Lempoctr™.nxe 
Peo Tempeetrc*enxt = nil; 
(¥ wotemre te tne cContlict Aistory pair with tne smallest 
—  metricosum *) 
GSiceour «ser COOVYCCEr 7 .nxt> 
Pormmlownctr p=) CODY ctr; 
WiiGe tempeptr*.paireptr” .mectricasum <> small DO 


BEGIN 
CoOupmoweOGYr 3= temo.wPcr > 
fEenocbeme $= "temocotr* nxt 
ENDS 


followsptr®.nxt ;= Tempbsptr*.nxt; 





Cz append tne aeletedq pair to the rollpack list #*) 
Cemp.ptr*.nxt 3s nil; 
Ife rolloack.ptr = nil ThrheN 


BEGIN 
BO noche ele CMNDaotr; 
agdeters $= ©OhboacKustr 
END : 
ELSE 
BEGIN 
add.ptr“.nxt 3:= teme.otr; 
addeeter ¢= aGgad_ptr™ ..Aaxt 
END? ; ; 


(* determine if any more cycles exist *) 


UNTIL nOT cycle 


END} 


(ERE RKK KEKE KKK KK ETRE RK KKK ERR KER EKER KK AER EEK EEK KEKKSE ) 
(KKK EKKKAEKEKK EKER EK KEK EK EK REE KEKE RRA K ERR KEKE KKK EK EEK KE ) 


FUNCTION Iseinelist Cinitsesite : cnar; 
Crans.num,st.num,aaenum 3: integer; 
Pies eomnee Ot he weexnec).. croolean; 


See eee is © Ge it the Lmpuc List memoer 1s in the list 
Seecyrcurencttec.7GCt, false othiervise *) 


VAR 
mineocwes PCIAre@exec; 


BEGIN (*funct) 
1Saafiew st <;s Ealse; 
SueOes t= lListptr; 
re CuUpoce = Nil THEN 
Pserneliste i= ralse 
eLSe 
BEGIN (ELSE?) 
repeat Gimerl curptr 
MerCecuirotre. 1nitesite 
(eWretr*.transanum tranSeanum) end 
(CWpotr-.«stenum ="Stohum) and 
Ccurptr*.aaenUmM = asenum ) THEN 
eoeetiyeectc aes So hue 
Gimmes s= CUrOtr*™.nxt; 
Oiie curcer = nil; 
ENDS (*#ELSEF) 
END} eeounc iscino! fst *) 


ni11*) 
lnitesite) ana 
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CFF EKER KEKE RK KARE EKER EERE ERK KARE KR KEK AKER EKER ERK RK RK KARE TEKS) 
CHEK KRKEKKRAKK KEKE RRR EK KK ERK KKK KKK RK ERR K KKK KARR KE KR EKER ESE) 


RoGeEOURE schnodlspose (VAR Héadsachnoptr : witroch); 


ct This procequre will release un=needed storage space So 
that it may later be used again. Rewaoes SO f£Or rolled 
back contlict nistories, *) 


VAR 
Stel sh + PCraCi, 


BEGIN 
wid nead.cheaoer <> nil DO 
SeaGIn 
cnhaptCr s= neacacniptr; 
NeaGeemaptne.= Neadocha-ptr*.nxt: 
Piloeeses Cenoectr*.calr-etr); 
DISPGSE (Cenaoptr) 
END 
END: (*¥ cnwaispose *) 


CES KEK KEKERKK AER HE ERK KEE KEKE ERE KER KRARREREAK RK EK SKE KEE KES) 


CERKKRAKEKAKAE KEKE EA EKA KEK EEK KKK EEK ERA AAR REE KEKE KARE RAH KE) 


PROCEDURE rollbeckacn (initesite : cnar; 
transeanum, Stenum, aasnum s intecer; 
from.commit 3; soolean); 


(Wein Seeerocedure will remcve conflict nistories from 

Mee rougmout the database. Lf called from the commit 
srocedure, all ¢h’s aill coe removed for tne committina 
rans er icentircimee oy its initesile ana transanaun,. pied 
Ccallea from rolicack, a list of en fairs sill nave seen 
mum geon tne pursce.listooptr. #*) - 


CHEEK KEE KEKE ARK EKER EK KA ERE KEE KEK ERE KAR KE ERE KK EK KES) 


PROCEDURE curgeucn (VAR neadach 3 ptricn; 
PGeptrtocn : otracn; 
Var enGrmecar § CLIracn) $ 


(* this removes tne ch pair member pointed to oy oGaptrtochn 
from tne list pointed to cy neag.cn*) 


VAR 
Eyiaene: Ciimecn; 


BEGIN (purge ch*) 


IF neaduwch <> nil TREN 
BEGIN (#1*) 
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Pe eneadlcia= paso urtochn THEN 
BEGIN 
DHheaAgsecnesemogecenrocn: ,Axt: 
fold.on wa Lome ce pmer coche nxt ¢ 
DGnaobr Ceci x om = DuUraceclist.ptr; 
DUNGBISteetr «= CGootrtoch: 
END : 
eLSe 
BEGIN (*2*) 
Evie che <= Headecn> 
Whe CV iecmeenxe <> Caqeptrtocn Du 
EVviloCoe See eVicen*.nxt: 
EVil=cma,ht ess OGlotrtocn*. nxt: 
Plomaecer f= CGepertocnc nxt: 
CUE DinamocMmeagixt «= OCUrgGenlistootr? 
DURGeC= est apcr += OGoOEFrtocn 
END (*2%) ; 
END (*1*) 
END; (¥*¥purge ch*) 


CHEER EKEE KKK KKE REE REE KE ERE KK KR AE RK KKK KEE KKK EK KER KR AKK ERE KE) 
Pome bURE purge.commi1t (VAR neaawemicn : otr.ch3 


Teme unl tase 
cmatransanum 


ee 08 
oO 
A] 
ib 
ry 


integer); 


Geetnissctings all tne ¢n members in the list pointed to py 
neadicm.ch wnien nave identifiers tne Same as TNe 
init.site and transanum and removes tnem from tne 
Piroemoy Calling Durgce.ch .*) 


YAR 
purgescmiflg 3: boolean; 
Noladscmeactr,tvleaprocm : ptr.cn; 


BEGIN (¢¥* purge commit #*) 
Poneto crtaGcm <> nil “DHEN 
BeGIN (*¥1*) 
My tae oecnN ¢= nead._cmichn; 
purge.cm.flg := false; 
Week EVES DYrscm <> nil va 
BEGIN (42%) 
imewmer ee Cole eaae1d. Crens=site.inituwsite = 
efesnicesmee) and Ctivicprocm-?,adaild. 
BLansesneeectransenud = cCMmeotransonum) THEN 
BEGIN ; 
Swe ceaemuneaedecMach, CVLLPIL.cm, 
eee ahd Cnaptn): 
BUrcgeschat lg <= true; 
BivD 
LSE 
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De Cey learn eciimod tne owme ,-aa.ld.trans.Site. 
init.site = 
Cua inteeas.ttegcanad (tV besprocm”. 
piawsrSeDtr*. aasid. : 
eriahisms ll cemtransSnun = E€motrans—nu7) 
THEN 
SEGIN 
DuUmgelsenmineame cn cn, tvVli_praecn, 
; hiovamerootr) 
DuUGdeaCcMatlog t= true; 
END} 
i’ OCupgebensofiq TaAetn 
EVieOTe2oCtm.— NolLaccm._ptr 
EUSE 
EvVleDrocn 
DUBGezeies ic 
BNO C*%2*) 
END (¥*1*) © 
ADE (* purge commit *¥) 


Seer ecm. 1x t+ 
= false; 


(EKKAKKKAEKE EEA ETE KER KEK AKK RETAKE KK ESHER EK ERK RK RR KEKE KEK EK KE) 


BROCE DURE NOURGELTOLIDaACK (VAK neadoriccn <; otr.cn? 
Sletmicestecenws Cher; 
Reeel ance, Fr laS canuUumM, 
rledaanum 3 integer); 


Giecnis Ginds all tne ¢cn members in the list cointed ta ov 
Neadwrl.ch which nave fLaentifiers tne ssme as tne 
initesite ana transanum and Stenum 4aéna aasnum 
and removes them trom tne list oy edslling curgescn *) 


VAR 
purgesrleatis ; coolean; 
peomaorl sem, ,cviaoorerl $ etr.cn; 


BEGIN (* purge rolloack *) 
Pe neaderleen <> nil THEN 
SEGIN (¥1¥*) 
CvVreprarl t= hnéadsrleach? 
SurceSePloflg <= talse; 
Touoe loeprorl <> nil DO 
cCEGIN (#2*) 
immeCrvi-Ore~flowda=ta,tCrans.site,.initesite = 
Beeinieasi te) and (cvloorir)]“.,de.id, 
transasite,.transanum = rlotrans.num) and 
CC Vip CoriedasarStanum = TrlosStenum) and 
Gaeorer)“sdasid,aasnum = SloeaacAum) Trts 
BEGIN © , 
DiGaeesemcacecorioc¢h,tVvVlaprarl, 
OVO. b Oe Eo cee try 


14% 








DUT Gt. tao ae. Ly Ne F 
ENO 
ELSE 
LeeeeevileaoOben lb gPatlecrt mlacld,trans—site. 
Maitcasitecs 
rietNtC.Silve) vamGe (CViaeprirl”. 
Dairentr-, -dacid. : 
Miansesrae.trancenum = rl-transanum) 
Aawemin thet l -~Palroptr°.dd.id. 
Sooner nlestenan) end (tvlseprerl*. 
Poe uectnereasedoecasnun = rlceaanuni) 
THEN : . 
BEGIN 
Une mcieivCddot baci yc VlaooOh al ks» 
CVG Ule Ci ain Wey ga) a 
DUT Ggeor tweet .= Er ue; 
END 3 
LF purgecriaflg TsEis 
Mee orerie.= NOoleori.pctr 
ELSE : 
evils Orarl § 
Purge@arleatig : 
END (*2¥) 
OND (*14) ~~ 
END; Peecurge bolloack *) 


= tvleorari® nxt; 
= falsé; 


(KE KEKE KEKE ERE KK ARK KEKE EK REE K TKK RK ERK EER AKER AK EK KA FRR RHR E EE) 


BeeGrovuURe OUrg@.Er.cn (og.initesite 3: char; 
PeceuGansenunnedacee nun 
edaenum 3: integer; 
Peeecoumn. © is. Doone an) s 


(* this removes tne cn’s £Erom the wnole transaction ana 

" guptransaction structures wnicn nave tne same varameters 
AGitGemeniodG 1Nitesite,transenum,stenUW ana aacnun. 
Mie Greconmmic Ps true, the call camie £Erom tne commit 
oroc, if false the call Came from tne rolloack*) 


VAR 
toeenead,seaenead 5: otracn; 
Peers  peretransy 
Seon Cvile: Ptreaserans; 


BEGIN (* purge tr cn *) 
Pe Ueeanseotr <2 nil IKEN 
BeGIN (#1¥*) 
meeevin t= trans.ptr: 
Weert vi S> nll Ou 
BeGIN (*2*) 
Pacer econmit Toi. 


idgy 





ourge.commit(tratvil*,tCrans.cnapcr, 
Geren tacit e,p G.trans.num) 


ELSE 
DUR Gearct Voaerm(Craeevr-. cransacnSvtr,; 


CGat Vues Cer COLt rats eniun; 
gest anuy, OCaaealtlin); 
StacVvilus= tmetva .stuvtr? 
WHILE stetvl <> nil Ov 
SaeGIN (*3*) : 
IF tracommit Yon 
PiMmTeaCOnMMlclStatVil~,staocnaptr, 
Poem eesmte, pga transonum) 
ELSE 
Sumo ecenolLoaGe CSCI LVLG.SECECNA CLT, 
Bgeinitesice, pootrans.num, 
Foes tant, Odaaaanun) ¢ 
Se evies= Stat VlOsnxt? 
SNC: (*#3%*) | 
TeatVi s= Creat VL > .Nxt; 


END (*2*) 
END: (+8) 
ENDS (*¥ purge tr cn 


CEKRKKKRRKEEEKE KARAT EE EERE RRA EEK EKER KK EKER KKK KK RA KK EKER ER KX) 


PRUCEDURE Curge.do.cn Cinit.site ears 
Chansema, .s caiUM, —ea.0U0n —s Intecer ; 


de.wfromacomnit 3: ooolean); 


C*¥ this will purge a conflict nistory laentitiea by aauia 
elements trom all 9.0.°S ana all temp versions *) 


VAR 
1 3: integer) 
Bvaptes Scretv? 


BEGIN 
POR’ i := 1 TO 9¥ DO 


EE “desarray fi] <> nil TaeEnN 
BEGIN 
Ctmcurage CNS. ee.trom tne ¢d,0., oerm +) 
Pe Scoseron.conmmiea lic . 
Dress eoumi Ge cdOOnealravy Li) *.cnaptr, 
ifs ite, trans num) 


ELSE 

purge.wrollback (dowarray Pella lhl ak tl: 
Pageesite, crans.nun, 
Stenmuni, ac.nun); 

Mr OoULS@S Chis Ch from all tv’s ™t this d.o. *F) 


tveptr i= adOwarray tij*.tvaptr; 
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ace Evootr <> mil oc 
BSeGlis 
fe OOS ELOMeacOmmLt LHEN 
CitomecOMNL 6 AEVePul pUvVeCNaDCr , 
Miieeeseht @ Meterans nim 
ELSE | 
purge_rollback (tvoptr®.tvocn-ptr, 
Meat aosite, transanun, 
StoNnUM, Saanuin); 
CVaeCt Geeta, CVEODGr° snxt 
END  (SeWHILE *) ; 
ENG (* IF THEN #*) 
END; (* purgecdoucn *) 


CEXEKK KEKE RK EKER KKK KEE KKK KERR KKK AR RK KEE RK KKK KK E KAGE KER KAR EXE) 


(* main for rollpacKkicn #*) 
BEGIN 
ice eLon.conmleel HEN 
BEGIN 
melee Cauciwt. “rollbac«.cn is renoving ch"s tor’, 
meee OMinsaee” ):s | 
plumgeathecn (indtosite, trans.num,0,0,ftrom.commit); 
murage=aGoee yy CLALtiasite, trans num,0,0,fromocommit) 
END 
SS 
B2aGIN 
Nel ooNeoauaLt,m of Olloackocn LS removing cn"s for’, 
PeELOleack ” ); 
DupoeCacmecnetintucsite, Cransenum, Stu.num, aanun, 
EroOneconn. & ); 
MUnGewcosecnClmteask te, Cransonum, Stanum, aa.nun, 
mr onesie Oli c) 
yo (* PF cliok”-¥.) 
END; (* rolibacK.acn *) 


CKSEREKEKKRKEKKTAEK KE EEE KE KKK EK EEK EEK EF KR KKK KR KE KA ERK EXERT ) 
CKKERRKA EKER KERR EKER KEKE SA KEKE KK KK ERE RK KA K KKK AKER KTR TREE) 


PROCEDURE release.lock (do.id © yatecer: 
m@eloaa.Ptr ~: ptrisaa); 


(* this procedure will release ail locks neld py the 
Currently executing atomic action *) 


YAR 
GUIGESOCtT sateeDtCracdic? 
oumnvestoptr : ptr.strans; 
dunny.emeptr : ptrutrans; 
Nxtecdeotme: otr.aa} 
Peledusrogemetr : otr.lock.qg; 


tol 





BEGIN 
releaasptr” .naveilock i= falisey 
Pee@oearray {(d0aid]-,locK.guoptr <> nil THEN 
BeGILN ' ; 
Ge Lindiad atefront Of lock queue + change its 
DOCK et ac "s) 
wen dOedrbray LCddcldJ]~,10ck.g.Ptr”*,aa.wida an 
find.aa (transasite.initesite, 
“transesite.transaonum, 
STaNUM, AAaNUM, , NXCwaAaGaCtCr,GumMMVYISTACEr, 
adummyatreptr); | 
fF oxtoaaomtr <> nil HEN 
BEGIN 


Mxtwaaaptr*, navewzlock := true; 
Me Coeds pcr oe iNnalocKa_fla := false; 
PMeedaapere.steO.num ¢= 3 | 
END : 
ELSe& 


ARITELN (audit, “@aaid HOt OUna Cre lease 10GK7 oy 


Game a] Leerndory “aid” s era Convair e = CVErO OSch 
Site -wnere tne d.Oo, is replicated *) 
Mine Geearray €Cdowlid)/"“.leocko.goptr*.aa.ia vu 


BEGIN 
WRITE (audit,’release lock °”); 
AKITELN Caudit,’removed trom lock queue : °); 
WR ige  (Cauelit,tramsasite.initasite : 2); 
Mepie Cauclt,transasite,transanum i: 2); 


*KITE Cauait,steanun 2) 
WRITE Caudit,a@a.wmunm : 2)? 
WRITELNCAudit); 


(* remoWe aa £rom Erent of lockG + rollzsack 
Le” smech* Sex) 
hovloeciee ct B@ELanSaestce,initeosite, trans.esite 
etransanUm,stonum,ea num, false); 
END;  Gaiwith *) 


Bomealsposeocr s= COeartaytdocia)” ,lOocKq.ptr; 
domerraylde.td!*.,loek-ag.o0tr := 
aoearhay (dOn10) lock aGgaDtr™.nxt; 
OISEUSE(relidispos@éaptr);: ' 
eNO (* IF THEN *¥) 
BLUSE 
BEGIN 
Gtmrectegce LOCKS ae Gach site g,.o. is replicates 
@eo= atter €irst installing the corresponaing 
tempo version *) ) 
GumGececrr.= Giccarray (dooial; 
Mage ecurreptr. <> nil bu 
 BeGIn 
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TE VGCuUrTYT2otro.slitesia = 
Atcadreay lLUIe.site.ia Then 
SEGIWN ” 
doewarray lLdowidi*.locK 3= false; 
WRITELN(auGit, “release tock for 1.0. ”, 
. olloketo ue baler 
END 
ELSE 
Coeacnad NsGatc nreplicateq site - 
GlUnteGeEreesilt@sla Comest install a ty, 
then release tne lock *) 
WRITELN (audlt, “release lock tor a.o. ”, 
: aoe duesaae 
Perot le"; Cureeolr” .site.ta); 
Gugeectr 2s curroptr*.axt; : 
BND (* awHIe *¥) 
END (* IF ELSE *) 


CKREREKE EKA KE KKKKKKA EAE KE KEKE KEK KER KERR KEKE KK ERE KK RE KKEK REE) 
(KRKKKKEKE REE RAKE REK TERE KEK KERR EKER KKK AKER ERK RK REE KEK EK) 


PROCEDURE rollpack (Cinlistsptr : otracn; 
| VAR roll.ecnaptr 3 etr.cn); 


C¥tnis rolls oack any atomic actions wnich appear in tne 
IMiaet pointed to by inlist and any atomic actions in 
the same suo transaction which follow tne roiled vacx 
atomic action, Any temporary verslon vouilt py tne rollea 
oack atomic actions are deleted ana any temporary versions 
pasecd on tne teme ver whicn was deletea are also aeleted 
and tneir atomic actions are rollea cack, tne output 
Gemmtermocinhes to che List of atomic actions awnich must 
o@ 2@xecuted oefore any otners are allowéd to execute. 
tne input list will not pe empty when tnis oroe is calieo. 
No n@aders or trailers on any output list. a list orc 
conf nistories trom rolled oacx temp vers is also 
eucecutar, 


LASeEL 1; 


YAR 
Moc orca rg,Oncvitg,t lrStatroletlg,okK.tlg :; poolean; 
isi ctomemcnar > 
{,tnum,stnum,aanum,doid : integer; 
Wnemeer ; Ptr.cn: 
Petro oer, VULOLOER,NUESCEE ,-fOLOnectr, 
currol,rollpack.wotr,resptr ; ptroreexec; 


(* procedures for rolloack #) 
CHEEK ERK KKKKKERKH KKK EAR ARE KKK ERK KE KER KR ERK KEKE KEKE KEK AE) 


ios 





PROCEOURE rollbackwaa (initosite : cnar; 
SCLaisaaun,stanun, aa.Oum S-integes; 
VAR okdaafilg,isatv : pooliean); 


cetnis Bomtoeaecx actOmle actions found on the rolinmacx list. 
lf any successor atomic actions need to pe rolled voack 
due to rolling an aa back, tne successors are placéa at 
Eee @nd of the roll= back list, Ine t(r) auantities are 
also adjusted at tne suo trans and trens as necesSary. 
If tne atomic action is in tne lock queue 1t 185 removea 
and tastv is set to false#*) , 


VAR 
MowvLOeda.CPtCr 3; Eptr.aa; 
eilmemecr, tvlotr $ ptrsreexec; 
Sepecey  : bDtrotv: 
gonun $: integer; 
Siniaeeapocuretcr < Gtroalock.G; 
Boles seeecer 3; Dtr.strans; 
Wo LLoweGepes -s OLreLrans ; 


(* sroc for rollpack.waa *) 
(KE KEKKKKKEKEK ERK EKA EEA KKK EKER KEKE KEK KE KEKE KE REE KEE EK HE KET) 


PeeceDURG £ingoloccalctmemp Cinitsite ; 
aanum,doia 
HON (ejb gies) e 


Char; transnum,stnun, 

* integer: 

Ole fe Oe hee) > 

(*tnis proc returns tne pointer to a memoer of tne jock 

BeavevemaproctG@ with tne attrinputes intut to tne oroc. tlt 
meecammoc find, tne memoer it Peturns a Ail in curotr?) 


VAR 
mel orten.s -OcT aLOCK.C; 


B&EGIN (*£ind lo¢c g nennF) 
melon seagonarray(aoid)*.lockKoGletr; 
IF tvilptr = nil THEN ; 
ClleoGr a= Mit 
eLoe | 
BeGIN (*1¥*) 
aueptr os = O41; 
WOrPear | eeCeineil tvilptr = nil or found memper*) 
MomiGry OCT saaaud<ctransesite. 
initesite = initsite) and 
Perot ro «adalat lransas ite. 
trans.num = transnum) and 
CEy lp@iesdaatG. Stonunee=  stnum) ang 
aaeioeaacnum = aanum) TREN 


Gevaictr. 
GCurptUteas= ECVILCEL 
ELSE 
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GVELOtCr s= tvilptr™ nxt 
Aes Cevlptr = nil) ormigcuretrecomni i) 
END? (#¥1#) 
END? (*find loc q memoer*) 


CKKAEERKKE KKK KEKE KKK ERK KE RAKE KERR KEK RRR AKER KE RRR KEKE EEK) 


BEGIN (*proc rollpackiaa*) 
Bellbsaa.ptr $= nil; 
findwaa(initusite,transonum,stentm,aaonun, 
rolloedaacer,ycollbast ctr,rolicoutraptr);: 
IF rollbwaawptr = nil THER 
OxaaflGg := false 
ELSE 
SsEGIWN (*1*) 
We (POLL SD aaSees* snave—lock) THEN 
Rededceahock (holmomddapure gad locos 1c), 
‘rolicescee crc 

okKaaflg := true; 

WRETELN(CQ@UdItm’ rolling back atomic action :;°);3 

wRITe(audit,initasite : 2); 

#RITECaudit,transonum 3; 2); 

Felco’ (audit,stanum : 2 

aARITE(Caudit,aaenum : 2 

wRITELN( audit): 

(* Jp tne atomic action to roilloack was in steao 1 
adjust tne fin qtys in tne sub trans ana 
possibly tne trans #*) 

Weenie aagaept lr” .stepanum = 14 lHbw 
SEGIN 

Memrolipaesteectl«-.aeerlnecty = 
POlleeSeectro.aeeacty Tot! 
Roll DetbberGr «se oe mocey 6 = 
Pol lonteeenetstatinadcy = I: 
POW oeStCESP UL .aeerIneGey i= 
ROMmeo reo unecaaacinasty = i; 
END; 
CAS ee EME Atomle action omns da ECr) Cems version 
tnen adjust the quantities at tne sup trans 
and trans as necessary*) | 
findutv(initesite,transanum,stanum,aaonun, 
Troe eage Cerne wdaalosdOmld,ptrtoty): 
LF ptrtotvy <> ail THEN 
Pe otrtotv*.state-flaq = *r’” THEN 
BEGIN : 
fPerolposstePtr>,aa—_tr.aty = 
rollowsSteptr*.aacaty THEA 

VOLMOetreotr-asketragdty s:= 
Rowe brecom sotecrnwGtyY = 17 

TollcustwOewe,adatragty 2 = 
rollpestertr .adotraaty - i 


Pele: 





END; 
Cut ene edtolrG sactmon @nSs 1m CMe lock queve, 
' remove it*) 
SOMnUM he = LOMNLDSaAaSctr” ,aanid.do.id; 
IF rollb.a@anotr*,inlockqetlg THES 
WITHeGOlpNe=aa=Ptr+.dgoid DU GEGIN (1.5%) 
ftimanvocagememottransecite.initesice, 
“transasite,transanun, 
Stenun, aa-nun eo. 1a, curotr): 
Fe secUretre<> Olli Toe 7 
BEGIM (41,60*) © 
"EOL packswen«cranseSi te. 1nitaSilte, 
“transesite.trans.nun, 
StTaNUM,A@aanum,talse); 
WRITE CAUdItC,’“rolloackwaa 1s removing’); 
MR itcuMeaucmepeeaa from iock gq :%)} 
MOU oUMeaUci te At ransesiterunitesite + 4, 
TerenS=@s.temcransenam fa 45 
Steam + oeaaeamne: 4) > 
isatv := false; 
TP aware ay (COM MNe. lock Cover = CULOtLr 
THEN 
dOwar Payereonumni =. LOGCKEGCLOCLr ¢= 
Sonal LayilaonumimeelOCkada oer  «-iixX t 
ELSE ) ; ; 
"BEGIN: seta? *) 
finde tris —COsar ray lacmum ) =. 
Weve < TeOMe ccs 
MOLD Linger wake <2? CULTECCY vo 
Pak fqueleihere BS | SiuiGVehotabarN gb ier 
fice Uae et= CULDtCro amx tc; 
END (¥4,7%) 
ENO (*¥1.0%*) 
ELSE 
obEGIN Caos) 
ARITELNCauc{t, 
"“TOldaamnailead to £nd Loc memo’, 
Eran omrermmnicasice s: 4, 
Eransesmaececransanum =: 4, 
SceatGm 1G a€acnum ©: 4): 
wWRITELNCaudit): 
END; Crise) 
END? C¥#1,5%). 
(ere@seteervelds in rolled cack atonic action*) 
won lewedaactt roe. aangliad.cn.seq s= 0; 
Rooeaee Ptr ,stat $= °x’; 
mop eaecOtre.Step.num := 0; 
BoLlceaaaotra,cime.val := =1 
Bo lpectasotro einalockq.fig¢q := £ 
omen aa. ptr: ="rolloiva4am@ptr~*.nx 
WELLE rollbwaaeptr <> nil OU 
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SEGIN (¥*2*) 

(*¥fing and send to rollpack list any atofic 
actions which executea after the rolléus 
DAacCK atomic action*) | 

bee o Wi bedaecer®,stepanumy <> Ul thE 

BeGIn (#3%*) ~ . 
Mole SainaetLiStt rolibeacHzcorr*.aeiida, 
: transeSsite. 
IPitestte,rollb ad. Str* acacia. 
EP arSas Lee. 
EranUSanut trOLliOoncadaetr. .3anl0. 
Staonune 
rollbp.waa@uwPtr*.gacld.,adunun, 
FOolilback= ptr) them 
BEGIN (*4*) 
WEw Cnuroletr); 
WUMOLOEP rites tte s: = 
V Oelvi Oia Girt Clee acco lal. 
trances 1 te. int oS) cee 
MUEFOLEUCr“.c¢2cans.num {= 
FOL bOnceea0tlr.eaeuc. 
Pransceslce. Graensomunc 
PUP OLOGr Sasme null. = 
FOUuRmocaacobcr” ..edale, 
Seen : 
Nurolptr*®,aawnaun s= 
| “Veen eee acisie® 5 lela siete 
aaonun3 a 
PURO Deh es ecommr = )Ollosadaotr >. 
Gia sicies « SO ta: : 
WUE Gl Cr soe: = idle 
bE creli{seackeotr = nis laen 
POwloacmeoer nn. = OUTOlLDtr 
ELSE 
SEGIN L*5#) 
BVO t Es = rOLloack otr? 
Witty DGG eax Gas? Mil 0G 
SeOereas oy LCLre. nxt: 
EV beeen eG Gs. HuPolLoOtr? 
END? (#*5%) 
ENE? GP4™) 
TO Mine adet tn = rOlloeaa-orr“.nxt 
END (*3*) , | 
ELSE 
PolbomadaOtr™ s= Ail: 
END; ot2*) 
END? (*1*) 
END; (*proc rollbackaa*) 


CKRRER AREAL EERE REE RAKE ERK EAR ARK REE KK RRR E RE EE RK KK ER KE) 


et 





PROeceOURE rollbackoty Cinit.site : c¢nar: 
“transanum,stanum,aanun, 
aGna1.0 s integer; 

VAR OCOGNMEVE LQ) $ DOOLean) > 


C#¥tnis rolilsback a teme version as a result of tne tems 
versions atomic action neing in the roilvack list 
IF there are supsequent temp vers oased on tne rolivack 
candidate tney are olaced on tne rolloack list for | 
future rolloacx*) 


VAR 
hear eoev,CULD ere eVGOLSDOSeCCOLYT : Dtri.tv;? 
Meer s tCir.reexec; 
tvlptr,nurolstr : ptraereexec3 
sonum § integer; 


Crmoroc fer rolloackitwer 
(FERRE EREKRKEREKRKKEKR ETEK KE TKK KE KER KERR KER KEKE RK EKER KEKE KEK) 


POueeeURE COpY.to.rellocrr (curotr ; ptracn); 


(ftnis copies the list of cant nist pointed to oy curntr tc 
anol iweack List oormeea to oy rolloenaptrs+} 


VAR 
Mvenoer $ -PpLrecn; 


peGuear (FOroc copy tO roll cn*) 
h’ roblaecnaptr = nil THEN 
more Cliao thee = eCUrOLT 
Shoe 
SEGIN (41%) 
Mynouh = 6Ollechaptr; 
Witte ec VLO@Eoenke <2 All DO 
CV iowrue. = CV lotr” «nxt? 
EVIPtr“ met. ¢= CUMBtr;: 
END; (*¥1¥*) 
ENC? (Memoc cooyetouroll.ch*) 


Sree eee te TTT TSEC ECCS SSS CSSSS SSCS SC COCC SSCS SCLC CS SSS ES LLL SD 


BEGIN (¥oroc rolloacKatv*¥) 
GEideamyGinitasicbe, transonum,stanum,aa~num,d0 ld,ptrtotv); 
IF otrtotv = nil THEN 
Ooktvfla := faise 
ELSE : 
BEGIN (*245 
oktvflg s= true; 
#RITELwWC(audit, “rolling pack temp version :7’);3 
opener Gait in Ca Site as) 205 


ae 


——> 
7) 
a 


— 


_ 
a 


Ny 

7 
y 
Ke 





mile Cavett ,trans.num : 2); 
WMRITe(avudit,st.num $: 2) 
agiTeé(audit,aaenum : 2) 
WRITELN (audit); 
SUccuse = kdeoarray l|dolidi= tvooer; 
(*tne case where the rolloack temp ver is tne only 
one in tne list*) 
PP CGiweOteL = pLicOky) sand (peErecoty”snxt = nil) SHEN 
BEGIN CF 2.9*) 
IF ptrtotv <> nil ToHEn 
DISPOSE COCY tc tam) > 
domarrayldoOsciai@.tVvo.5tr s= nils 
SoOyetO-TOlleehmepehecotyr. CVSCnartr ); 
END (#2,54) : 
ELSE | 
BEGIN (¥*¥3*) 


® 
v 
i] 
v 


(*tne case where tne rollcacxk temo ver is tne 
 €irst memper in tne listeeoulla a au7my 
tirst member so you can nanalie it iike 
the general case*) 


EF Gureer = CErecotvy lies 
BEGIN (#3.1%*) i 
ciel S&S welliclehes: ~ Reiley bol ye ebselie 4 
NEWCeuretr) : 
CUaD Ure ~aastew renSeaStteelNLleesSilEre i= 
ae ae 
GUED@re snk SSP ercocy, 
qOnatreay (denuml!: ,~cvepkr S= CUrOUr? 
END? (*3.1%*) : 
C(*nandle the general case ewnere the rollback 
“temo its imveadedq in tna list*) 
Mies, GuEOt rc net omer rTocy 0 
Ginoce fs CUrDE Eee ixt: 
EieOeLe gmk e es OtLELOEVo. net: 
BOSC OS role COCO ETLoOcy: .tLVocneptr); 
Pe OUmUOny-~sdalc.revaehous> °“r’. Tact 
BEGIN (*3.5*) © 
(*rolloacx suposequent temp vers*) 
WMELE curotr".axt <> nil CO 
HEGIN (*3.0*) 
Memoertoty <> nil THEN 
DiSrPUSECEErEOCV); 
Roms eGverSetnsiistecUrptr  .nxt“.aan.la. 
; Erancesice. 
Dheestee,oume cor ~nNxt".adulia. 
Cranisas ice. 
EPansepun,CUrDEr «AXt”.ae.10- 
Sc. num, 
curptr®.nxt*.a@dwid.aasnun, 


er 





RomeneeeKk= flr) 2rra 
BEGIN ( *¥4% ) 
NEw(nurolptr); 
Mumma ni NiGasite $s Curstr™.oxt*. 
aeecmeransesi te, initosite; 
TiO time esansamin s= Curcer-.nxt 
adwia.transasite.trans.nun; 
(iw hoOeweamseatlull «= CUrLUtr” ~<Nxt 7. 
aanwia.stanum; ; 
WUEOLOer eiaemum <= curGter*.axt*. 
as.ia.,daanum; ; 
nurolotr*.,dowla := curotr*.nxt*. 
ele jem rol clo ae obe4 : | 
glee iene da) Sigh ie | Hey alapaper: 
PeerOol Dacha oerT r= 9nd) Reh 
BOevaeka@ners= (1 rOlocr 
BUMS 
seGin (#94) 
Elecr c= follopackontr: 
Vi ue V LOET ae enx t <o) O11 900 
Evens acl pErTo eaxXt ¢ 
Ey lomeeence mas aiure lotr; 
gO; Gio =) 
END? (*4*) 
EgeyeCOs rom lecnCeCurotrcenxs « 
| Oe CY Seleeee maple 
GyveceisOOSeaber $= CUTOUT" .axt; | 
Seema.) lee = CULrOCr .mxt-.nxt? 
DUSHPUSeGttCVegiseose.mptr); 


END? (#3.0*) 
END: (*3,5*) 
ENO; (¥*¥ 3%) 


(FECuUt OWE Gummy record if it exists#) 
mcinoe o> coined, Cranseswte. tnitesite sie’x” THen 
demartay | conlumiuiemevepe pamtemecUnrOLEr* nxt: 
END? (*2*) ; 
END? (#proc rollback.atv*) 


(KEKE KER EKER KEKE KE RE KK RAK KK KEE RAKE KREMER EKER KER EK KE ERK) 


BEGIN (¥#Droc rolloacKx™) 
POI ecN=Otr i= ni); 
Pinas TrOletigqw.s= true; 
imeattr soetnlirstaber > 
RoOlwoaeckKoPG&r s= ALi; 
1 s= 13 
REPEAT Seunt ll L1mecnper = n1ll*) 
(*¥load tne re exec list witn the data from the ¢n 
pailr rec*) 
Peo leis henisek pic ipter ,PpalroOtr”,aailid. 
eromseo 1te<rmattesite, 
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Moen iat Deere ot r” seacia. 
Gr ansasieeperans nun, 
MICH Ones daneOtho?.ada1d0.5 can lin, 
MNGNemenpalrePplr.64o10.4a.0Un, 
reexecuptr) THEN — 
BEGIN C(¥I[F 1¥*) 
New(nureptr): 
IF peexecotr = 
BEGIN (*,5* 
HOmonreotr $= nunectr: 
reexec.ptr s= nureptr; 
END C*¥,5*)- 
ELSE 
BEGIN (*1*) 
Bevomeotr == fTeexec ptr: 
Vier LOLOReCOCTS NXte<> Ail Db 
foOlOreo0tr -= folerertr >. axt: 
POLOreEGE .nXt s= AtireDmtr: 
foloreptr := nureptr; 
END? (*1*) 
NuUreeen nxtee= fie 
Umer Ch as Nlceaweeus em emp tr° .PpalrioOtr”. 
YP eaetemeransastieomt nites Ce: ; 
Mle Decr«, Cransetmu ies = VOeENObre.scalir_ptr”. 
Bradeide eansesi] ce. trans. um: : 
MULeC eS .Steonun $= 
Petincmetr toatl baertr saasto.st.nuin; 
nureptr*.a@annum 3= | 
 SUNSInV ee ee atele slid ets ase ph clean [ame rs men Rr 
eibeione ic @ Kforce) 5 
Wactcotn-.OatGeeero nde lc.ad0.1d; 
ENO? (*IF 1*#) a ie | 
(#lCaGwenmemrolipnack list With data trom the cn 
pair rec*) 
Peeve tS. i nae rst GC nNeciper ssa tne Der” .dawlds. 
Srans=siteswnte site, 
MReCOctC lama lre ocr Cae ld. 
transasite. transonun, 
wicupunmewalcectr: ,adald.stanun, 
MRGibicie woe ere. aa4e1d.aacnun, 
rollpackKooetr) THEN 
BEGIN (#IF 2*) 7 
New(nurolptr); 
leet rs tor Clee. Gg THe: 
BEGIN 
BOwlbpackaper += NULOLpPtr? 
POLLOLOtC: += nurolotr; 
END 
ELSE 
BEGIN (*1*) 
folrolptr“.nxt ¢= nurolptr,; 


Nil Tah 
) 


Lol 





igo ie (oh) ele bg 
Nib (¥*¥1*) 
Piers tar Owe t 16s 
merolptr-.nxe : 
MeGosotGres Int toast terse Anenptr*.pairaptr. 
: qeaewd.trams.site., inita.sice; 
Muse regtransanun ¢= Lnchptr~.cairaotr~. 
; aawla.ctransasite.trans.num; 
Misormetrenstaa@um s= {nchptr*.caireptr*.4aaoid. 
; Stunum; a 
Meaolperswaedenum $= LNENOtr®.palr.oOtr”,aacic. 
: aaaaums: a 
Njmeotranaceiicms => LMCnOtr: Pailreotr™.sa.ia. 
. doula; 
END? (¥IF 2%) 
(*load the rollback list with data from 
the ch rec#) 
Peeve dt Samwell Ss CCR CND Gime .da-lagtrians.site,. 
initrsite, 
CBehOenneeanld.,transa.oi1te. 
me anism, 
taecnoere <aaolad.,.Stanum, 
UMemDth -.aaatdeddenllm, 
RoselioacKerer ) tani 
BEGIN (C¥*IF 3*) i 
HeAMULOLOEY ) 3 
Mearns carOlo.fig Tus 
SEGIN 
ROD eaCK oP Grilc= MunoLotrs 
mMeleototr ¢= nAurolptr; 
END 
eLSe 
GEGIN tae bos ) 
folrTOloet se. 
ftolmomotr 
NU; Cres) 
Elesteroloftio 
Purealoer .0x G 
MUO Ett oeiaibesite ss inenotr~. 
: aawia.transasite.initusite; 
inom r seGhenseanum v= Lnecnetr . 
: a€awid.transasite,transanum; 
DUCE saseeaiis=) Unenetr~.aaid,stonum; 
fumootr 9 daenunmes= inenotr*.aacia.aa.nun; 
NNO MOEr°.dosia t= Inchotr*,aaiid.do 14; 
END? (¥LF 3%) —- 
tqcniccr mis Inenotr «nxt? 
iipeaminenotr = nil; 
Gurrol w= rolloacK.ptr; 
REPEAT OeINT Io curro] = nil#) 
okaaflg := talse; | 
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OeKCVEIQ $= faise; 

isatv := true; 

Cw ct se aeemtec actlom 1S,neot from this site, tackace 
tne roll= cack msg and send it to tne init site © 
of the aa do not roll it or any temp vers 
OackK at 2enls site at tnis time otnerwise, rolioacr tne 
aa and tne tv*) 

rollbackwaa(currol*.initasite, 

heuecol wtrans num, 
Sonrouw waoGaenhUm, 
currol*,aaaenum, 
oKkaarflg,isatv); 


(* purse the system of this aa’s ch’s #*) 
rollcack.ocn(currol*.initesite, currol*,trans.nun, 
GUpmotwascenum, Currol*.eaaunum, false)e 


ieee iic socom sGc aGCemmom MOStC iikely createa 4 temo ver, 
tnen roli it back*¥) 
IF isatv THEN 
PoOwmuosdekecyccurrol ,initesite, 
Currel°.trensonum, 
CUES Ol- .«Stanumn,; 
CuUrrol”~.daaonun, 
Sumrog° .cOs Ld, 
oKtvtlg):; 
(*¥reset § value and release tne Gg.o,. lock if sresent*) 
BeewOokevtlG THEN — 
SBEGIN 
Semis CCurroi”~.d0 id); 
Beaman raven rrol .dO=a1dJ*.socnt < 
Scearmanrecurrol .30.10)°.neent IThkw 
releaseslock(currol*.dowic); 
eivD #) 
eae both aa and tv were rolled cacKxed, Sone inue+) 
IF okaaflg ana oktvtlg tnen 
Clnaormes = CUrrol*.nxt 
Cees write anh error warning and tnen continue) 
ELSE 
BEGIN 
AR ITELNCaudit, 
Pecomornto roloaekman aad,tv that vas not there’); 
Aero onCaualt,;CUrPOl@minitusite : 4, 
“currol*.tranSenum 3: 4, 
CUmnolmuscenUM s 4,CurnOl>.aacnum : 4, 
Sumer or. dOn! Gm a 
Gurrole ss scurrol- .Axe 
END; ' 
UNTIL currol = nil; 
ie ee eroOlL baceeatr <2°nil thew 
BEGIN 
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[= [Ol loackzotr: 
OxecG v=ucrie : : 
ROmuseGmentpol= roOlipeacwaDtr*.nxt; 
END | OO | 
ELSe 
GkKectoeseastal Se; 
ie OKe£ LQ THEN 
BEGIN 
C*7pisPUSE(Te.Ptr ) ;**) 
Sia\elc: oly 
END: 
END? (foroe rolloacct) 


(ER EKKKKEEEKEKRKE EKER KKK EEK ETE RRR KER KE EK KKK KER EKA KEKE K EET KER) 
(ERKKEESK RAKE RAR KERR KAKA KKK RK ERE KR KEE ERK K ERK AER EEE EK KET) 


PROCEOURE restorei_sr (reliptr ; DU rsen) > 


(* Ihis procedure will restore serfalizaple execution at tne 

memicocadledata Cble@eta it cweceives as 1NnSuE a list of 
Contlict nistoryv pairs Wnicn are all involved in cycles 
and outputs 4 list of aa’S whicn must be reexecutea 
Hineariy. * ) 


YAR 
POLISackepuee, rolleemeotr ¢ Pptcracn: 


BEG. ly 
MRETEUNCauUdIC, “restore.sr 1S restoring sr’); 
(* produce the list of @a2a’sS to ne rolled pacxk #*) 
aercermMineardeboaeck Crelooctr, rolloacKxcetr); 


(*¥ roll those temp versions cack, and all related ones *) 
PoOLlOaekat pOlloachaptS, rolloenarctr) ; 


(Supe tenrat. Gonrrtce Aistories to retlect tne rollec 
9ack tv’s *) 
S* ero oaek.cn “Crolliucneeecr, °Y¥"°, 0, talse); *) 


END; 


(ERK KEK KEEKRKKTKKEKK KEE MEEK KEK EKER THERE KEK KR EKR ERR EERE KEE KEKE) 
(KEKKK KEK EERE ERK RK KA RAKES AR KEKE EA AK EEK KEK KEKE KA AK RK KEKE KS) 


PROCEDURE markatempiversion (Status : cnear; 
Nancenaacotr ¢ otroaa: 
Magmestectre ptrestrans: 
fiemcatneotr : otratrans); 


SV oviomicatoe ne whos Tecently created temp ver as eitner 
Beweecrmur te it Che teme Ver 45 marked t(r), tne suo 


1o4 





Pero nanGC trams whlch Credteg the temo ver nave tnelir tir? 
Guameney tL€lds aqjusted as required?) 


VAR 
meuemr s Pprratvs 
meagkilg ¢ 500l1e@an; 
Ger tocvy £: pcr.tv: 
donum ; integer; 


BEGIN (¥marKotempoiversion*®) 
PmiGg=aey (Mer headgeDtLr” «a@aswid.t€ransa2site.,.initusite, 
 MarkKeaaaptr*,.aaeid.tranSwsite.transanum, 
Woe eda trewaaatd.sconum, 
laecacaaotrc eddald.dacnun, 
Memkeadesptr- sadalid.dgela, 
ptrtotv); — 
WRITELN(CaUaGlt, °MarkKitenp.ver marking :”);3 
wRiTeCaudit,markKiadauwotr* adaid.trans.~site.,initusite : i, 
“MarkKewaan.ptr*, aacia. trans sit#.transjnum 3:4, 
haeReaaaettnmenaacidestanun 2.4, : 
fiatKaoadectrowaasLa.daanum $s, 
lankacsaeour aerasaGn!o : 4); 
ARITELN( audit);  — | 
case status or 


hae emeneory ~<stat.f la 7= 5 Ghar 
CVE erie rOEVe gStatoreces= TWF 


"2° 3: BEGIN (*case 2¥) 
| ReaginG a: =. true? 

donum i= Markadaeptr®,.aania.dowia; 

EViOer = Moar tay iaenum) > ,Cviptr; 

DE MtVieer Shit Tae : 

seGIN 
WMRITELN(C@udit, °mark temp tried to mark a”); 
Nec aucit, tena walen vas not. there’): 
WOLLTEGN CAUG@e, Markee Gapcr: .dadén.id. 

Seances. coset osite, 
NaGweaaeoen: saesto,trens._site. 

; | fransanum, 
markeadaaePtr*.aanld.Stanun, 
MarksoaanOtCr*s4acid.aanun, 

Wines aeoeie.aa_lo,a0 ia); 
END 
ELSE 
BEGIN 
NAILE tvlptr <> nil DO 
BEGIN (4sHIbLeE*) 
Pe GCuveoerosddolo.rawaotlg = °r*) 
‘and (readtlg) THEN 
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EV ici. S taimet io 22.7 Tr? 
ELS& : 
Woe CCV boul ,a4adald.<yoverls = 
| a ie le) eee are: 
(NOL readftlg) THe 
Gy iciie. Statetla i= °9 7 
Pose 
. Prem by voir .sa210.revotla = 
fae eee) ai 
Creadflgq) THes 
SEGIN 
Cypress catiat id f= “ae 
readfilg := talse 
ENG 
EuSe 
PeGty Wot, a4. 116. 
Went poms “1. ) anc 
(NOT reaaflg) [ren 
EvlotmeestatetlG <= 


e 
o ys 
f 


=e 


N 
ey Oo Gee wee VO Creme XT; 
END:  (¥woalbe*) 
END? (*ELSE*) : 
END? (*case ZF) 


ENO? CESS) 
omen CORVamStat.tla = “rf” Tnéu 


END; 


BEGIN (*IF ts r¥) 
MamkK Staptr maa tuangqty is 
: (awa Sre otis .Gadethachy + 13 
[IP Mapkostcotr*.aaetreqty > } 
: Nana sempure .aacaocty Tabs 
BEGIN aA : 
MerKaeStsety. ,eeetragty <= 
: Meekesteptr” .aas3ty> 
WRITELNC(A@UdGit,’in harktempd tne aatr qty’); 
ARITELN(C audit, ’exceecea tne sa aty’”); 
END? | 
Maia steoere.aaetrogty = 
; ieigwascteper- ,accatv THEN 
heme trot  Statroqty i= a: 
Neehememeoere.sstethradtv + 1; 
PutAcketrort nr, statr.qty > | 
: Mae eetaPcro.st.Hty THEN 


Mi 


"sj 


BEGIN 
Waka theptr sStatreqty := 
: Mamie creamer’. St.gLy? 
WRITELN(auUGit,’in marktemp tne sttr qty’); 
WRITELNCauait, °exceeded tne st qty”); 
END; 


END? C*IF is r*¥) 


(*mark temp version*®) 
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( FKEKEKEEREKREKE ERK ERE KK ERE KKK ERE REE RK EKER KAR KEKE KEK KEK RE EK S) 
CFREKERER TER ERK ER ER KRE REE KEK KEK EK KEKE KE RK ETE ERK K KKK EKER TEKS ) 


PROCEDURE enterwlocx.queue (entereaaeptr 3 otroaa); 


(* this enters an atomic action into tne lock queue at a4 
data osject wnen the atomic action finds tne 
data onject locked *}) 


VAR 
moeOocmtr,c Vibtr § ctr.lock.g; 
@mnaerost.ctr $ ptr.astrans? 
aeereureptr = CPtretrans: 
G@onum s integer; 


BEGIN (*enter Lock gqueue*) 
(Foulld ana load the NEW lcck queue Member cata*) 
WeACMNULOCOCY jay 
mumOcete «nxt «= nil; 
pilel OiGinwer “weanwldetrans.jsite.wnmiteslt@ 3: 
Qneerladdabtr-.a@caid.transasite. initwsice; 
pmbocerrme. aag.1d,trensasite.Cransanum := 
Sheeraudd.ptr”,adeild.trans_site,transanun; 
MUleGeCen .aacidestenum := enter aa cOtr*,aacld.st—num? 
MeocmEes  damlaadaenum := @nt@riaaiotr*,aaeid.aeannut.? 
McCaw aaa. Gowet lg 6f= «6 Eniwerodaa.otr*.a@ania.rwfls¢; 
nulocptr’,.danld.,adeid $= entereaaeotr*.aaiia.aowia? 
MubOcoere 2a tencna.sea *= enterTiaadoptr*®,aacidq.chjseq? 
nulocotr*.aaeiaemetric := enteraga ptr, aaniu.meCric; 
ARITZLN(Caudit, “entering this aa in tne lock queue’); 
WRITELACaU@HEt ,enmteriaaptr*.aaid. 
eramoss wweeinita=sice : 4, 
PrceGea@eaePtr .dadalQ.s~trams site.trans._num <: 4, 
Pree aaa Der weaenldescuonum : 4, 
CENTEGreaaaO tr .aawldeaaaNhtn $ 4)3 
denum = megeter. aawotr*.aanid.aoiic: 
(#set tme atomic action LocK Fiela as lockea out?) 
anc ein. demote sin-LOCKGeflg := true; 
(*enter tne atomic action into the lock queues) 
bE douwdmeavwbaonum)*.lockajgeptr = nil THEN . 
domaine vuconmum)telock-d—ctr := Aulocptr 
ELSE | ; : 
BEGIN (*ELSE*F) 
Evesmiur <= Gocarraylaonum]”.lock.q.ptr; 
MALE tvicome.nxt <> nil bo 
tuesoermes= EVEDtCr*.nxt? 
Succ r.Oxe $= nuloepty 
EnD3 (*ELSE*) 
END; (*enter lock gueue*) 


CKERKKKERKKER AREER ER KE REE ES KKK EK KERR RR ERK KEK KEK KK EA KK RE KE X ) 
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(KKK EKEKKK ERR KEK ARERR ERK KKK KEK ERK KEKE KKK EK RAK KEKE KEK ERS 


PRUCEDURE Sortacn CIneeescPtr,sOhtlistotr > ptr.cn; 
indwinsert > ooolean; 
VAn Sorct.winsert $3: soolean); 


Cewnes InS@CEus 4) Linktd List of conflict hnistories pointed 
BECOmOYVeuniiStpthetmto 4 sorted list sointed to py 
sortlistptr sorted order. Duplicate memoers are not 
inserted in tne list. If the indwtinsert tlag is on, the 
SoGtelioer Wmemag iswerue if an insert occured. A neacer 
ana a trailer are used in tne sorted list for ease 
Of insert.3) 


YAR 
SGmecCaactl, , bas@otr, L@a@arptr,nucnptr sOtrecn; 
nupairetr 3; otr.achapair; 
Guct ig sboolean;} 


CREKKKEAKHE RRR ERE KK AEE EKER ERE KER KEK KK RK ERK ERK KEK EKEE EES) 


PROCEDURE determine.aup (detadsasotr,leadptr + otr.cn; 
VAR dupflg sboolean); 


(* this sets dupftlg true if the conf nlst cointea to sy the 
two input pointers are duplicates *) 


SEGIN C(*Geternine dup*) 
MM Cacet.agectr-.adeid.transasite,initesite = 
leacdibeee wdeetadetransasite.,initausite) AND 
(dBe aatper-,.a4da,id.trans.site.trans—num = 
leaaptr*,aaw~id.transajsite.tCransanum) And 
(detuaaptr*.aaaid.sSteaentim = 
leadptr*,aasid.stantim) AND 
(deteaanwPtr*. adeia.aaaenum = 
leadotr*,.a@aeid.aaanum) ANC 
CKMceadarere.oelrepel sddacasctranS.sité.init.site = 
Diedducumecdl rept re ,adeiadetransaesicte.initesite) Aid 
(detaadarpers.Sadivectr°.dacid.transsite.trans enum = 
PelaigPper-realnreerr ,44f£icd.trans.site.trans—num) Awl 
(Gieiceaeeper-. caer pth: .eaeid.stanum = 
Heaigibimre.Oalraber 6dadeld.Stanum) AnD 
(eteadeeer spair.Str~.daeid.adad num = 
Peagetr*.paireptr*.aaaeid.aaanum) THEN 
quceloes= true} ; 
END? (determine dun*) 


CHE AEKEKREAKKEKERKA ERE KEELER EKER AE KKK KE KEE EAR RE EK KEKE EKER) 


BeGiN (€*#sort cn) 
meneG@aectr s<= iInlistotr; 


loa 





Sale sGhaocn.ctr <> nil oO 
BEGIN C(*#r2*) 
paseptr := sortlistretr; 
leadptr $= paseptr*,nxt; 
lime Pea@etre.adeic.tranSesite.initesite < 
SGpecieptre.daaid,Clans-Sitfsinitesite vO 
BEGIN (*r3#) © 
paseptr := leaactr; 
Leaagptr s= leadcptr*. nxt; 
ENO; (*r3¥*) | 
Demrleadcoetrpeacdaatd.trans.sité,initesite = 
Mcheeche Der nadstG.transasite.initesite THEN 
De mi@musen=cnecreno daald,transasite.trans-num < 
leadptr*.aasia.trans-site.transeanum) Lakn 
Met Peaddotr:.aaid.transasite.initesite 
PmesiGnmciet or ovacata.tlanseaesite. 
ae initaesite) Anu 
Usienacieceme.,aacia.trans-sité. 
a trans.nun > 
besdetr°-.aacla.transasite,trans nui) wo 
BEGIN (¥*r4*)- . 
baseptr := leadptr; 
l@adptr *= leaactr*.nxt; 
END: (¥*r4*) 
guct!¢g += talse: 
aetermineiwcup(leadptr,scnecnaptr,aupilg): 
IF NOT duptig THEN 
SGEGIN (¥rS*) 
Nea (nucnetr); 
NewC(Cnudairptr); 
MSsMiOen .oalraptt °= mugairptr: 
MIGhMOLr  sNkt t= DaSeDtr”.nxt: 
Sais Piper * KOM: = nwecnotr: 
Alipelrotre.aacid <= 
Sehachesth  .soeirootr” ,.ad.ia; 
AUDALlEOUr Mer iceasum os | 
| Sioneeheccue sans. otoa.metriccsum: 
Miemoure. da louc=) sGmecneotr*,4eacid; 
IF indwinsert THEN 
“Orc. Insert S:= true: 
END? (*r5*) : 
Sey Geeetr 3= Schacheaptr~.nxt; 
END: (#r2*) a 


END: (¥sort cn*) 


(KKRKKKER KERR EKER KK ERK AEE EKER RE KERR KK ERE KK KER RK TERK ETE ES) 
(ER REKEKR ERK KEKE ERK EEK EKA KE RAK KRESS REE KER KEK KEK KEKE EKKE KS) 


PROCEDURE addsandwdetect Caddechaptr : ptrocn; 


VAR wasenonesr : coolean; 
Voneroltecnoper §. ptrecn) Sy 


lo? 





(* This adds a header and a trailer to the input contlict 
[is tony List amd calls tne detect non=esr proc. It non-sr 
Wemoelceceegm the Elag “wasocnonsr" is set to true. ihe 
meager amd traiier ere stripoed orf orior to return *) 


VAR 
POubSchaptr 3 otr.ch.pair; 


BEGIN 
waS.nonost := false; 


Sead eheectereana trailer *) 


Secretion sheextsts *) 
qaetect.nonasr (adascneptr, wasenonasr, rollacn.etr); 


C* Stric OfS Neaqer and trailer #*) 
Cvlptr t= eddlem—ptr: | 
Wiloe vcneee eT oaxt>-aacid.transesite,inituesite <> °A” bu 
Sviocr es tViptresenxt: — 
Gomcsmose@aper wee CVlOtr*.snxt: 
Super ~ eAXt t=enil: : 
Tt Giudisvose@.ptr <> nil Takth 
HS PGSe (CEn.Gisoose.otr); 
Cha@esposeeciur s= adcduwcn.ptr; 
aigid@seinaotr f= add ocnhaptr*,nxt: 
BiGPGsecendiseose ptr)? 
ents ; 


(KREK KKK AKER ERR KKK KEK EEE ERR ERE EKER KKK EK KE RK AK K ERK ES KES) 
CREE KK KRHA KEK EKA KE KEKE ERE REE AE RREKR EEK KKK KKK ER EEK EEK ERK ESS) 


moueerouRn SOTCCeCYr.€Cin (CSOrE.DCr fmerge.btr =: ptr.cn; 
VAR OU CC he cree el Ch 7 
VNR InS@PEectiac <: ooolean); 


Mteunesmaerts Ee List of conflict nlstories osointed to py 
WSOebtemptr lance tenges into tne sorted list tne list 
pointed tO py mergesptr,. %o duplicates are ailowea in 
Meme natersorted List pointed to sy outiccnaptr. Lf any 
Moseinis tomithe finai list came from tme merge list, 
Em@ imsert.u.flog is set to true,*) 


VAR 
SguceGiepte s DPptraochnapair; 
SOp Gewese ro +s DOOLe dan; 
G¥Ejpcr <s ptr.cn; 


BEGIN (*#soG@t tr cnt) 


179 





insert.flg 32 FALSE; 


Pic cecamoedder sand Chailer ech recora to the outcutiist*) 
enut.cheptrer nil; 
ages didae. (COULELChH.Otr )? 


([F mergesptr = nil TdHEN 
TO cecn( sOmme DOr ,OUteChoaptr,fALst,sorteinsert) 
eLSE cy 
Csr Coe ele=enil THEN 
BEGIN (¥1%) 
Ma Seimeeig i= TRUE; 
SOmeecmeCnergelCer ,OUt.Chept tT,  ALSE,SOrtmaIlNSErt)> 
BND C(¥1*) 
BLSe (*neitner pointer is nil*) 
BEGIN (*2*) 
Somtmemmsior Canter, OUuLs=cnectr,PALSE,sortuinsert): 
Somuecn CN@imceo ptr, 0uCeaChoptr,TRUE,sortewinsert); 
lr sorteinsert nen 
PAeert.tlg $= Rue; 
END; C#2*) 


(*¥ strip off Neader and trailer from output list*) 
Mee Ge = CULSCH AO tr: 
WHILE tvlotr*,nxt*.adeid.transesite.,initasita <> “A” LA 
CVletr ss tvlptr* Aint) a ear 
Eviptpewnxt $= mile 
OWeEmeMeec er «s= OULCKCHabPtr* nxt? 
END: (*sort tr cn*) | 


(KEKE ERKE ERK KKK EER ERK KEK KEE RE KR AREER KEK ER KK EKER ERK KR EE KKH KK) 
(KEKE KKKRKK ERE TE RKEKK ERK AE KAA EKER KEKE KR KA KEKE KR EK REKEK XK) 


PemeebuURe resolve glopal.sr (pPtrteotr : otrotrans; 
| VAR ceo mchaO cr awe ctrocn; 
VAR WaSSNONASr =; DCoOolean; 
Vik rOmecneour «. Otrocn) > 


(*tnis resolves glovoal Nnon=serlapizanility by aéerectiny non- 
Serlalizapoility Qeecnewe Onc amenduuen OL GONLLICL nistories 
for the input transaction. Ine iterative process of 
concatenation of conflict nistories and aetection of 
none-ser insures tnat the detection process and tne 
resultant resolution process are exnauStive for a given 
transaction, roll.chajptr points to tne minimal contlict 
Geocery tO FOLli back*} 


VAR 
tr.array : array(i1..99) of integer; 
Pemsmmeavotlo, found @4.o0one,Mt.treach,insert.f1Gq : poolean; 


{ : integer; 


eyed 








EvViLowr 3 ptr.trans; 
Sem emc rh, Netrgemer, CemOptr,nxtatrecne-ostr 3: otricn? 


(* procs for res glo sr *) 
CER KEKE KRKKEKER REET ESTAR KKK KKK ETEK EK KKK ERK KRHA KEKE F GEG 


Ss 


) 


BroereUURE "Se@trlarrnay (set.ch.ptr ss petricn): 


mcs pUtS saeleinco each ingex slot which is not al or a 
Zecor each empansectlon f£Ound fin the Input list of 
contlict histories. Tne inaex is tne transanum t1ela 
im ene weonkt nist) 


YAR 
Cvylptr : ptr.ch; 


BEGIN ¢(¥*set array#*) 
Cvlotr te Set _cneetr: 
Hoes UtCvwroen <> nit DO 
BEGIN (*14#) 
HeectGearoayleviotr-.,aasld,transasite, 
. | transenum) = 0 THES 
Umearmrayltvylotr-.aawia,transusite,. 
Creasenimies= 1; 
Pe CCreerrayvltvictr@ .cpazesorr?.adcid. 
Elanseoweeyecansenun) = UG Trea 
Efear tay GevlLowm wodlroper®. gaia. 
: trarsmBi ce ttanscenua) t= 1; 
Mv hae OV OCr «ix ce 
END; (¥*1*) ; 
END: (*set array*) 


CKKKREEKKEKAKERKEKE KE RK ERE ARE KARE KEKE KR KEKE KEE RE RARK EER KEKE ETE ) 


Peme@PDWURE t21ndg_a—_One (VAR AXt.trceneOtr ¢ ptrecn;? 
VAR foundeaeone, Mtstrocn ; boolean); 


(mens aceemets tO find alin tne tfiarray. l1f ail is 

"ifeund, a cointer to tne transaction’s conflict aistory 
with the same trans.num as tne inaex LN the array 15 
returned,thne foundwajone flag is set to true anu ir the 
tramsaceion conflict is not empty the mtutr.ch flag is 
fabee, Ge no 1 is found the foundwaione is returned raise. 
Peeae tees founa but the transaection’s conflict is empty, 
nee tee twroecn tleag issset to true*) 


VAK 
Vax,i * integer? 
to tr : ptr.trans: 


SEGIN (*f£find a one*) 
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i. = ee 
Neatleaqm «= ftalse; 
found.a.one := talse; 
MxAtCCrChna pie 2 = nil; 
Wir ueaNoOT CL > 99) DO 
le traarrayfij = 1 THEN 
BEGLY 86 ¥1 *) 


EOURhGaaache s= true; 
tredgrayiia, <= 2; 
LOX cium Sole? 
{ := 100 
END 
ELSE 
ins 2 +e 


IF foundaawone THEN 
BEGIN (¥*2*) 
EViptee cmt rars=ptr: 
TF tviptr = nil THEN 
AKITELN( audit, 
Meeror,tingea 1 found mt trans List’) 
ELSE 
WHILE tvlptr <> nil DU 
SEGIN | 
PeeeevlDOtro.transasite, 
EFsnhSahum = iax ltHEN 
Cee Omwee cr aiiGacieaD tr <2 nil luk 
Wt uneneOrr ors Gy lotr. 
: Gransecnectt > 
Evelpemeses tCVLpirs.oxt, 
SEND; 
END 
MnO kcetrenaoGr = Nil THEN 
WELtraCh t= true; 
END? Ce asa one *) 


(KEKE RAE KAKE EKER KK EKREAEKE RK EK RRR KKK EKER KEKE EK KKK X EKG) 


(* main loop res glo sr *) 
BEGIN 


APT bauarc, Gemmering resolve glosal sr for trans = 7°”)? 
wRITECAUCit,ptrtotr®.transasite,initasite ore 
Welle nwecalctt ,ptErtotr~.trensesite.transenum : 3 }} 


FOR i s:= 1 TO 99 DO 

Erearrevii) := 0? 
mtwearrayuflg := false; 
waSanonasr := false; 
tr.array(ptrtotr*.transsite.transonum) 3:= 2; 
set.array(resachaptr); . 
WHILE (NOT mtcarrayoflg) AND (NOT waSoncnasr) DOL 

BEGIN (¥*1*) © 

foundwawone := false; 


ase 





Mee tr.chmer= true; 
Mitac ° Ve Gitte ercmabcr, SOUNd—-a@.0ne,mtotr.cn); 
IF (£0uncwawone) AND (NOt Teetrech) IhEiv 
BEGIN (*2*) 
Wnhserteftlg := false; 
SOmeetEecmUres=echaepunynxtethena-ctr,temoptr, 
Pringemear ig) ; 
BCTrUCOures,trans.chloutr := tempotr; 
rem.cnaetr t= tempptr; 
S@ESarray lr esatheaptr); 
IF inserteflg Trea 
BEGIN | 
ARITeECaudit,’°resolve qlobpal is callins’ 
“ detecteanonesr tor = ”)3 
Weer (auc t,PEELOEr“,.transasilte. 
PGs eke ge ); 
WheebeCavawu,Pereotr >. traensosite. 
Ebanisenun: 2); 
WRITEONCaUdit); 
WaSeNONaST 3= false; 
addeanancetect(resecnaftr,wasmonasr, 
rOLlSCier tr } 
END; 
ENDS (*2*) 
IF NOT foundseaeone THEN 
Nteerrdyertlg <= trues 
END? C#1¥). 
ZND3 (*#resolve giobal srF) 


(ERRESAKKR EKER MEK KARE EKG REA KE RAK K ARK RAK KK EEK SEEK EE HEX) 
CERKKREK RARER KKK RE RRS KE RK KKK ERE HR AK RK AREER ERE RE RK AK EK EK EER) 


PROCEDURE detect.gdliobalesr (qlobal.f1g : Doolean; 
VAx commiteflg : ocolean; 
TAC here peo Gr. crans; 
Locate cme Oe haus Gr och); 


cs Tir smenoceoure Will determine it tne transection conflict 
nistories presently indicate serlalizable aeuilvlety . Lf 
so, the commitetlg will return true; otherwise, t¢alse. #*) 


VAR 
Gummy, non.wsr : boolean; 
Pole cheotrm: ctorecn; 


SEGIN 
ARITELNCaudit,’entering detectaglovalasr’); 
IF glopaloflg = false THEN . 
BEGIN : 
Stee e een CChe ptr es chenseCN—Ctr, locxc.cniptr, 
Bereceaarerensecnerptr, dummy); 
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MemandnGerect (EFoptrostransccnootr, nonsr, 
POL lecr sour: 
IF nonwsr THEN , 
Beaoore. sr (TrOollLenoptr) 
ELSE : 
mesOumvemaroUAaloSsr Cerostr, traottr®,.trans.jcnaptr, 
ipomesin-srOllochaptr) > 
IF nonasr THEN 
Petecagreosr (r6ollocnootr) ; 
END 
ELSE 
BEGIN 
SmeeeerecieC ther tn st banS.Cnseotr, locKkaq.cn ptr, 
eoepen-.crens=Chootr, dummy )> 
addadicdmermtec: CLEroptr~,.transa.cnoptr, nonesr, 
MeOlLrecheocer): 
IF nonosr THEN 
kos Semen cote GOL) .CiaDer ) 
ELSE 
Pe@sCmwen So Lodet esr CCreCtn cheap tr”.transjcn.pdtr, 
CnoOhest wool gjCNeptr): 
IF nonosr THEN 
PCS tan. el Or Ol baci tl 
ELSE ; 
commit.flg := true 
END 
ep : 


STS TT ST TCE TESTS CSL CSS OSCSSSOSSSCSSSSSSSSLSSCCCCS SESS SCCSSSSSCS © 
(KEREHKKEAKK ERR ERK E AKER KR KAKA EKER RARER KK RAKE RRR EKER EK EEK SE) 


PROCEDURE cetectideadlocx (aaeptr 3; etr.aa; 
Steptr ¢ ptrestrans; 
treptr : ptretrans); 


SeouLompmoce Cure WL cetect ana, it necessary, resolve tne 
deadlock whicn can occur wnen atomic actions are piaced 
in lock queues *¥) 


VAR 
See eerie ry Lak GltCVarter, fLakeolistoptr : otratv; 
fakeuendeotr : eptratv? ; 
ictoacie oer Geno. Chootr, StschaPptr : ptr.ch; 
bomomocCkK=OCtmmrEpDtralLOCcCK.g> . 
Global.f1g, commit.f1g : boolean; 
donum : integer? 


SEGILi 
ARITeLN (audit, "’ehnecKking deadlock tor 4a 3°); 
Welt ecauaGit,ada.otr .aa.id 
Meecransecitey@nitesite ; 2); 


sas, 





MOLLE Caudgit,eapoptr”.aaia 

Ponansasite. transenum 
ARITS (Caudit,aacptr*. aawtideStunum $: 2 
WRITE (a@udit,aacptr*.,aasic.,aacnum 3: 2 
ARITELN( audit); ; ; 


(* construct "fake" tCemp versions trom the aa’s 1n tine 
lock queue so that a complete conflict history 
Can be nuilt *) © 
faeelaStoptr s:$= nid 
donum := @aaptr*. aawid.aqowid; 
Bence NOccepEr j= aocoarrayidonum)*.lock.q.Ptr:? 
wHlLe tempoloekoptr <> nil OG 
SeGIN - 
mew C€LaKketvaptr); 
aAITH tempoclock.ptr*®.aa.id CL 
SeGla ; : 7 
Faxeotv.otr® aaaild.transsite.init.sicte = 
transasite.initsite; 
fake ctvaeptr*. daelia.etransasite.transentum 3= 
transeSite.transanun 
faketveptr*.aauid.stenum $: 
fakeotVaeptr* .daaldeadenum 3 
PROG tGVaCEE sada lderewotlgG := 
PaCeeeVapt ro wada1qQ.0d0-1€ $=) do.1d? 
fame oveOer ,addnla.chaoseq := ch.seq; 
deen tveotr .aaelaletric %= metric; 
Pageetventr’.tvacnnctr 2= nil; 
WReleENCcauaqit, Creating fake tv for:°); 
Weere Caudal tc ,~cransosite,initesite $2, 
DehenSestte.crensanum $ 2, 
Sstanum : 2, 
aaenum 3 2, 
d@eald <<. 205 
ARITELNCaudit); 
ENO; (* with *) 
Deesfeme=istoptr = nid, THEN 
BEGIN 
fares lestaotr 3 
Sameezendactre.+ £ 


a Steomuin: 
= aaeNua; 
: raeWaet a7 


= £fake.tviPtr: 
a 


Meo eveD Cr 
END 
ELSE 
ceGIn 
face endalDtrowgiscme= CakGoCV.ptr;? 
faxe.endeptr := fakewtvaptr 
END}. 


tempolock.otr i= TemPelLoOckKaplr Nxt; 
END; (* wnile #) 
fakeotveptr nxt ee op a ae 


i Rengethe fake tv s at the tv *} 
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Easccetverth s= GOcarray ([donuml*.tveptr: 
IF agwarrayldonum)*.tvoaptr = nil THEI 
GGmahrayvoonumy °.UViuptr ¢:= fake listuptr 
ELSt BEGIN : = 
adibe casestvaptr®.nxt <> nil vO 
BqSe@oivepur <= baseotveoptr~snxt; 
DASE cveCtre.nxt $= frakewlist.etr; 
END} . : 


Crmere COmelices Exist, construct wna save conétlict 
nistory *) ; 
MOCKGSeENSGtr <= nil? 
Ir detectuconfiictr (donum) fhe 
aeemwecomtlicets (donurm, lockascenioetr); 
SOOVecmmecloCKCechaptr, temowen ctr); 
Gemeewec@pthes= cO.array(donum)*.lockiaoptr; 
MLE GemowlocKuptr*.nxt <> nii Gu 
Come lOekK PCr #= tenpwiocki ptr* nxt: 
DeMDpemeCcKeeGr ~lockacheptr i= temo chapter; 


(* remove tne faxe tv from tne tv iist #*#) 

LF pdsectvoptr = nil THEN | 
dQ.afray tdonum) *.tveptr ¢:= nil 

ELSE : 
SasCLtVopoamsenkc s= nil 


sc 


(* add the current aa st’s ch to tne lockgq.iech *) 
Son Vac 0S Cafe Sta ChaDL lr, StaCNhewntr)> 
IF loeckg.cnact@ <> nil THEN 
BEGIN 
Setpaecne eer. .- LOocKaq.cha_ptr; 
WolLuPwoemenecn.wOCEr™.Nxt <> nil OU 
temoncnmp wm :s tenp.chactr~.nxt: 
LenpDeCneacoroeniktus = stccneocr 
END : 
Jy Sif 
MoGktGmecmectr t=—Stecneotr: 


(+ detect and resolve any deagqlock *) 
ier ockogeeieeer <> Nil THEN 
BeGIt 
Gloval.wflg = false; 
SeeecteGclopala.sr (glooceleficg, commiti_tig, treaptr, 
LOCKGLCHEEtr) 
END 
END; 


(KEKEKEKKEKKE RARER KEE ERK KARE REAR KK KARE K ERE KER EK KEE KKK EK RE RK SR) 
(KEKKAKKKKKE RAE EEE ERK KER EK KK ERE KK ERE KA EK EKA KER EK EK ETS ) 


PROCEDURE updatefinishéeaaqty CfinwsStoptr J 1OGreo trans, 


1-7] 





Mumba eiees Cl sth ais) ; 


C* Whis procedure is only called wnen an atomic action 1s 

' finisned executing (at step 14). It will upe¢ate tne aa 
finisned quantity at the suctrans and it the sustrarns is 
fomecmea lt will meve tne Ssubtrans conf nistory to tne 
trans ana update the subtrans finisnea guantity. #) 


VAR 
Pin=cnaptr, auemeecaeetr Yaotrocn; 


BEGIN 
a Sone ocet ee eadacgcey = £1N-Stuptr*.@aasftinegqty iHEs 
WRITELN (audit, | 
"“ERROK: Step 14 has more aa"S rinisnea ° 
Sean e@xrst~) 
ELS& SceGin 
(* add 1 to aa £inisnea guantity *F) 
fifiacbePe hs Joc yerem times toptr™.a4altinogty + 1; 


a 


Te Of i nee tac cimegdeaasGtyY = EiNaestaebpcr .,ae.flnoaty TaEn 
SehGIN _~ 
(* add i to subtrans finisned quantity *) 
fia Ghepeh estat i nacieye. = 


Pager Ota eS tet N.C Y + 17 


(fRcooyeSubGbeans CN, tnen add 1t to the 
 “@mamsic on *) 
Copy. cm (fLlmestectr*.st.cive 
loaf neiee Spier “si rams cme cer 
fineweromtr~.treams.cmePtr 
ELSE SEGIN 
Gempecmieetr t= £inatleaDEr .CransSaCriaeDtr; 
Woloo wemmeenoftl “mgt. <> Ail Ou 
Cenomeheper f= Tempscna.ptr-7.nxt? 
Hemp Maine crre saxo v= “finoecnaoptr 
END (* ELSE *) 
END (# IF THEN #) 


Weenie Cilmo FLL ).p 
Nil Ikev 
ie 


1NeChaPCr 


2 


- 
we 

= 
ie) 
6 


ENO (* eLbse *) 
END} 


(ERREKA KERR RERE EERE ERA RK R KEK EKER KKK R KER EK RR ERK KK KKH) 
(KEKE AHEARE EER EREKRE RE ERE LER RRR EERE ERK ERK EER K AES RE KK EEK EX) 


PROCEDURE execute (VAR seeq 3 unsigned; 
time.celay : integer); 


VAR 
exec.trans.ptr $ ptretrans; 
SKeCacitepcr sects a sures, 
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ex@ciadgdi Ptr i:@ptr.eda? 
Mmeleaccr ~ DPUrSch? 
Hevenaa, NON.SE +s o0o0leaen? 


BEGIn 
navewaa := raise; 


ioe cencetiyamsclece Next atomic aetion to execute *} 
select.iaa C(navewaa, GMBCCELrENS=OtCT, execu. St.rtr, 
execnaaaptr, seea); 


(* execution sequence *) 
IF navewaa PTHEN BeGIN 
PXEC,A@A.CCE”“.Stepa.num i= Px@Caddwdtr”,stepanum +“, 1 


CASE exeCnaaeptr™.stepanum Of 


1° 2 (€* Tt loeted, trem time-out, 

else acquire locx *) 

Et (oewed Cexecidadaptr~ .aeaeid.douwia) Tr: 
timesocut(tinesaelay, execuaaaptr) 

ELSE BEGIn © 
aceue nec lock (execSseaeSetr“,aaaiia.dowia, 

e@xecaSCLEtr,execuaanwptr); 
Srecaadartr=.s Ceol s= Execsaa pcr”. 
step.num + 1} 
ENC; (# ELSE *) 


2: (% remain nere until timerout finisnea *) 
@me Tre still locked, enter lock aueue, 
els@ get lock *) 
IF e¢ecuaauptr~ .time.val < timetdelay Tren 
seGIN : 
CX SGCOmelnUt. LOUNa.G f£Oor ELlmMm@rout toenc +) 
“timesout(timedelay, execuaaeaeptr)} 
aMeGladalcctr-.stemenum := execudauptr*. 
' stepunum = 1 
ee ae ee FD 
ELSE 
SEGIN 
fe eloemed Cex®@claa-ctr7 .aeaoid.ss0.id) REG 
(* go to enterclockKuaqueue step *) 
execenadanptr*.steponum 
| [= Bexecucaa pts *.stepanum 4h 10 


{*j 


LS& 
acquirenwlock(execwaaaptr*,aania,aouwid, 
BweCesweartr,e@€XeCoaacttr) 
aD? GS ELSE TF) 


See eo remain nere until 1 Soenone Local locks 
are acguired #*#) 


a7 





immed: hay lLexeCadasDlhe, aasla.q0.i1G)]".locxasty 
<> 0 THEN — j 
exeCedderetrYssteponum ¢s=Execlaaduptr”. 
; ~  stepaonum = j3 


4 $3: (*¥ rest and relax #*) 
NWOMGSr {= NMOnNeSr> 
Ss BEGIN 
(* read/update data object *) 
createutempuver (execuraaattr, execeaStaptr, 
executransoptr); 
(*¥ If conflict exists tnen invoke the local 
' concurrency controller *) 
DPRqgeececre@conrlice® (e€xecu.aa.pti-.adaic 
ed0On1d) THEN 
Conseructaeprecated Gexeccacopur”.eaacia 
domrda) : 
cLse 
; CAP gGomeo S@ét sestomzero step *) 
exeCoaaeptr*.stepenum 3= 
exeCcnaseiotr*, stepunum + +; 
END? : 
Sa, mot One oneswmumoer Of CONftlicts this temo 


version nas *) 
sétes (execoadeptr”,adetd.do.id); 


jus ( £eiere Ocal GCOAGUrrencY Gontroller *) 
BEGIN : 
S@teetNon.srldoudrrayiexecidauptr®.aa.iu, 
do] alee cnepen snomasr, reloctr); 

IF nonaosSr THEN 
pestore.sr (relaptrj) 

ELSE ; 
OxXeceaaePtr*.stepanumM s= execuaawotr”. 

: stepenum + i 


END? (* case 7 ¥) 


Bees (*™Mark Status as either t(r) or tla) *) 
BeGly 
MerKetenpouyersion(’Z° ,execuaaaptr,exec._St.ptr, 
ex@Cetrans Ptr); 
(* go to check for release lock step *#) 
exeCudaaptr*.stepaenum 3= exeCudaaptr”. 
: stepunum + 3 
END? (* case J *¥) : 


9 3; (* mark status as t(w) *) 
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BEGIN 
markK.tempaversion (°*", exeCcuaacptr, 
GBxecuStuPptr, execatransePtr)} 
(* go to check for release lock step *) 
ExX@eeeagae ltr’ .stepantn %*= exec.aaactr*. 
; : — sgstecunum + 2 
END? (* case 9 *¥) 


103 (* set s to zero *) 


lis; (* mark status as t(7r) >) 
MarkKatempoversion (%r’, execaeaaaptr, 
SXeCC.SteOCl smexeCCoberans ptr); 


1Z: (* rpejease short-term lock, if necessary *¥) 
BEGIN j | | 
NES cde.array (Lexecodaoptrlr” ,dad@ald.douwlaj*.S.¢nct < 
Sosederay texeclcaalptr°.aaiaq.ao io] *.na.ent 
THE. : . 
Pepeaseclock €execleaacctr~.adiia.doila, 
-  execeaaaptr); 
(*¥ go to finisned step *) 
exec.adoptr*,steponum $= execudaawotr”~. 
Sst ecer ua +. 1 
END (*® case 12 *) 


13: (* time out nas expired *) 
"  [F locked (execuaasptr*.adald.,dowid) THei 
BEGIN ~ 
enter.lockaqueuve (execuraaadtr); 
detectuaeadlock (execwaacptr, 
SeXecGectaecer ye execotransaptr) 


Gecumme lock CexeCcagaptr”.aaiid.aodic, 
SxeGuStecer, exeCcas&ptr); 
CX@CaaaaPtr~*.StTePenuM $= exeClaacptr’. 
: steponium = Ll 

ENO; 


14: ¢* output whicn aa nas f£inisned and update 
 "Etinisned guantities" = tnis steonum 
Paper Cy sUsecm i neouocedure selectcaa *) 
SEGIN . 
WRITELUN (Caudit, ’tne aa at step 14 is 3:°)3 
WRITE Caudit, execwaadcptr*,aaoid, ; 
TemaMsceoSieectimitasite 2992); 
WRITE Caudit,éexecaaeptr”® e4Gald. 
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Chaise slce,crans—.num. <2) } 
WRITE (auditsexec.adaaptr® ,adsid.stonum 32); 
WRITE (Caudic, exe€caaa.otr® paaelaraaanum 2203 
ARkiTs UNCaudit); 
uodate tinishedigty VexeCuwS Casecr , 
exec.transeftr); — 
CNG eC Casula) 


END (* case *#) 
END (* [IF THEN *) 
ENO: (* PROCEDURE execute *#) 


(KERERKEKKKREE KEKE ERK EKER KEKE RR EKER KKKKE EK KKK KEK KKK KS KER EKG ) 
CHKEEKE KKK ERE KKH ERA ERE EKER EASE KKK RAKE EK ERR AK ERK ARES KE EK KS) 


PROCEDURE commit CcOmatroptr nec @rec. ans.) > 


C*¥tn1s commits a transaction after all temcorary versions 
nave peen labled tir). Tne temporary Vet > LeOnseencatec 
oy tne trans= action atomic actions are aeleted, a nistory 
message is sent to file audit, and the temporary versions 
at the data objects where a temporary version nas reen 
deleted are re=lableq t(r) or t(w) as necessary.*) 


VAR 
Gy EOCr 3, Ptraer ding, 


(* orecs for commit main loop *) 
(KREKKERKEREKK ERR ERK RAK K KEK RRR TKK K KERR RRR RK KKK RK AE RSE KRESS) 


PROCEDURE set.tvitr (ptrtoty SP CreSty) > 


(*tais sets a temo version pased on a conmmittea t(r) tere 
ver to tCr). Dec eObyepOINCS Go Che COMMILCTLAG tettn ver #*) 


VAR 
Beit ti OEeh 5 otraetrans? 
Beet estectres Otristrans: 
settCwdacdaPtr sptra.aa? 


BEGIN (¥*¥rn@set tv) 
(*I£ another tv is based on tne current tv then reset its 
status) 
[TF Be Mmeetv st. mxt <S>@nil THEN 
Teer toty; ,nxt*.Statefla <> °’r’ THEN 
BEGIN (¥*1*) 
Stroocven mca si@atofla s= °r“s 
find. did tpemtcinve wi ome oe clans. SLitTe. INitasite, 
Di prOtveenxtmeddaota@.trans.jsite.transenum, 
Dereorvernxuemeaasia.,St.nun, 
ptrtotv® oxt*.aaaia, aanum,settwaaePtr, 
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SGctassteat on, Sele att aptr); 
Jeeta ce er sacatladty t= 
Semeestaptl “aeerreaty + 1% 
Dieoemeaestopth“saaatragty > 
S@UELSSTQOCr°saecGgty THE 
BEGIw 
SeGee Ss Capel -sddetredty 3= 
— Settest.cer:.aa.qty:; 
WrebeuNtaucit, “from commit’ ); 
WRLTEUNCaUGIt, 
"in wmwark temp the aa tr qty’); 
ARITELUNCaAUCItC, “exceeced tne ea aty’)} 
END? | 
fh S@@wectacea- «eaaatreqty = 
| SeCGLoStepil ,acudty IAchk 
SOCEM URS Per yStetraogty- = ; 
| Sea@eeereocreastcotrogty + 13 
PraeseCECCeTeOLr 4S cectuaaey > : 
; HeeeaeraOtr- -stacty aac 
BEGIN : 
Stimt=oreatra.stattroaty 3= 
Severo en psstaqty > 
ARI TebiCauait, trom Commit’): 
WRITELNCa&udG1Lt, 
Tipamame Lemp tne st tr aty” )? 
WRITELNCaudit, “axceedea tne st atyv’); 


END; 
AD Ce) F ) 
END; (#reset tv*¥) 


CERRKKKEREKAKKKHKA RT EKER EKER KAR EK KKK KEK KA ERK KR AK AERA EREERE ZA) 
PROCEDURE findwaanwCOmmitcfincwasuotr : otriaa); 


Ceenis Visits Gaen atomic action of a Comm, celina transection 
and deletes the temoory version created oy the 
atomic action#*#) 


VAR 
qdonum : integer; 
Eup aa ye tn tony « OCratV; 


SEGIN (*f£ind aa commit*) 
be fingdedaasptr <> nil THEN 
BEGIN (#1 *) 
Pind Of nde deo-poro,aescid.transasite.initusite, 
Pwrindacd@.Ptr-,deuld.tfrans site,trans num, 

tiacedeesoel daa ld,.stanim, 
findwaacptr*.aaald.,adanum, 
PinoeaseDer a oaele.dOL+1d,otrtoty); 

donum 3:2 find aasptr*,aanid.dowid; 
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IF ptrtotv = nil THEN 
BEGIN (*#2*) 
(*error, could not tind the tv#*) 
ARLTELN (audit, ” Scul1c COUMOeNOE Lind a tv = 
WRITELN(CAuCit, fine. G@anptr*.,aaasiac,trans.site. 
ihicesmne 4. 
findwadwotr*.datia.transasite.transaonut 34, 
frnieaedasotr*.saaiia.stanum : 4, 
find.aasptr*.aalia.,aaenum : 4); 


=a: 


WRITELN (audit) 
END (¥*2*) 
ELSE | 


BEGIN (*3*) 
(*remove this tv’s conf nistories from 
all cn’s#*) 
rollsack.acn (ptrtotv*.adwid.trans.site 
piNnteeslee;. CErcoty’.aawid 
etransasite,trans nun, 
Ue eer le) Ss 


C(*If£ tv is first in line*) 
Peewdonerraylaonumic.tVertr = ptrtotv Trin 
Someta. ay Lolomnlm)~stveotr <= otrtotv>.nxt 
ELSE i " 
C*the tv Ls imoedqded in the list or tv’s*) 
' BEGIN (*4*) 
ev lotro: Cosamweay aonumi-.tVaott 
Aloe ee Vl Dtr snk co Dtrtoty DG 
EVUCt rs = se VOrr- «nie: 
EV pen ssn ce eee COC Vo ox C: 
END: (#44) . 
Peeee veer LDLrccey); 
(*reset tne secnt value at the a.o. and 
' pelease the lock iF oresent*) 
Sele SUD CEtOtV~ sdaaaid.Gonia): 
Mego sorravilotrtory> ecasid.doaia]“*.Secnt < 
fomarnay Uotr hoe ea, adel o.do.2d)°.n-cnt THEN 
releasenwlocK(ptrtotv*,.aaeia.douwld, 
mec inceaaectr)> | 
EWD3 Crs ~ ) 


findaa.commit(find.aasotr*.nxt); 


eit) 


(*find aa commitc*) 


CKEKKKKEKEKAK EKER TE KE KEKE KKK EKER EKER E EEK RK KK AK EK KEK EK KEKE XS ) 


PR@GEDGeEe ct ING.St.COmmiItC£ins.St.pPtr : ptro.strans); 


C*tnis visits each sSuotrans in a commitcing transaction so 
that eacn atomic action can oe visited*) 


1s4 





BEGIN C(*find st commit#*) 
Peet insceasteetr <> nil THEeK 
BeGinN (#*1%*) 
findssa_comm Wel Sins.steptr*.aa_pitr); 
Singesbecommit ( faimsaSstmoctr~ .Axt jul 
eNDZ (¥1¥#) 
END; (*find st commit*) 


CER AKKOK EAR KEKE EK EAE ERE RK ERK KEKE RRA ER EAR RRR KEKE RK EKA KE) 


(*¥ main loop commit =) 
BEGIN 
Me LIiPUNCauvalE, “commre@eing transaction == 
Gotiet hacer. cramsosice. dnitesite 
CONmerectoenerans-site,.transonum 
PNCestacomnit (come GmkOtr:.stuptr): 


-=> ae 
4, 
4)3 


eo es jf 


(*remove tnis transaction from Umer SGRUCtTUre es it nas 


committed*®) 
Pecan eheoer = Crans.Otr LHEN 
Erans-co eum := comotraocer*.nxt 
ELSE : : 
SEGIN (*1%*) 
tviOer «= Crans.otr; 
Mime Dens. akt <> CoOmetToptFr LU 
Peers er] OT CRO? 
tivene Qe gnAC f= COMSOUCr.ptr”,.nxt? 


end; 


CERERKEREEEKRREKKEKK EKER KKK KEE KKK RK K KEK AKER KTR AKKK AKA EKE EEE) 


CX KRKKK KE KEK ERK KEKE KEE RK AE RS K KE AK KEK KER KE RK KEKE KS 


PROCEDURE global.sr; 


HXKEKEEKS) 


Sas tnis erocecure is called in the main proaqram’s ao forever 


loop ano will insure the glocal serializability 
atomic action sequence #*) 


VAR 
Cemteer— pcr smetr.ctcrans; 
Gommec.c:l9, Gleonpal.flg : booiean; 
hi lec pen ot sPptr.cnyz 


BeGIN 
Memectr.otr := trane.ctr? 
WHILE temowtreotr <> nil 00 
BEGIN 
iP eyemeacr.ptr o.st.Gqty = 
O@mptr~otr*.st—fineaty HEN 
BEGIN J ~ 
Ir (tempetrootr™.transochaptr = nil) 


Nis = 


Of Line 





cline) CS CIMISIRS e Sie ial tg mare a 
Zrenoeerephr.Stetr Ooty) THe« 
BEGIN 
WRITELN (Caugit, “transaction °”, 
COU Grmoll »etlLans oo LCE. lGic.site, 
Beitipathaper -trans.site.trans—num: 3, 
eetistae ey) eo rom GlOooalwsr” )? 
commit (temp.traptr) : 
ENG (¥* IF THEw *)- 
ELSE BEGIN | 


Globealztig <= true; 

commit.wfla s:= faise; 

MitecOaotr «= nil’ 

GeeeecresiObaloasr (globalifl¢Gg, commitatic 


Clute tract h, while eciso fae. 
Piecoumet.f10 aho {tempi tCr.octr®. staaty 
= LemOotheptr-.Sltacr-cty) thew 
Gonmm.e Clemo seroper) 
END (* If ELSE #*) | 
END; (* [IF THEN *) 
PeToOmeneaw tr cs CenmOetractr~.nxt 
END (* WHILE *¥) 
END? 


CEKEKREKKEKEKKAAKEEK KEK EKER EK KEK AKER EK KR KEK REE KK EAR EK EER HF) 
(KKK KARR EKRKEK EKER EEK ERE ARKH REK ERK AKA RK KK RRR KKK KE RE EKER) 


(* tnis program is an adaptive optimistic concurrency 
controller *) 


(* main program *) 

BEGIN . 
REWRITE (Caucit); 
REWRITE (data); 
RESET (trans); 
REogk (datadic); 
RESET (dobj)3 
RESET Crunftile) ; 


(e eoul td CReserensaction flie *) 
DLlatx,; 
AR PoeNCaUaGLE, che transection tlle was built”); 


(* puila tne data dictionary #*) 
blddic; 
WeowneceudL ty ecwWe Gata Gictlonary was oullt’); 


(* puild the date ooject datanase *) 


bidao; 
HRITELN Caudit, “the data coject database was oullt’); 


ite 





(*¥oulld the tv,cn environment it required*) 
Wee lebNt do you want to reag tV or ¢n, y or n 2"); 
ARITELN (audit, “tne tv,cn environment was cullt’); 
readin(ch); 
enecKestop(stoprun,cn); 
ia cGhe= sem@eorescCch, = °y") THEN 
SAVCNtV? ; 
GCoOnCcneys 
prs@iect; 
CLOSE(data); 


enter.timedelay (timeidelay); 
ARITELNW (audit, “time delay constant enterec : °, 
timeidelay); 


enter.random.seed (seed); 
ARITELN (audit, “random seea value enterea 3: %,se@ed);3 


(* initialize atomic action rewsexecution List *) 
reexec.ptr = nil? 


Meeeom ( ENECY a carriage return to begin execution :°); 
READUN$ 


Gh s= °y’? 
Aneueeen = "“yY"” DO 
BxeGIN 
Neate uGenee LISE.ptr) : 
DuraQeelListoptr“.nxt := nil; 
nEa(purgeclisteptr* Saireptr); 
FOR i s:= 1 TO 1900 DO 
BEGIN 
(* call receive Message *) 


(* execute eacn atomic action acre bated 
Gonerol:.*) 
execute (Seed, ti eade tay), 


(Bainsare that vetlons are serializable *) 
glopal.sr; 


(*¥ this code disfoses of no longer needed 
—  @onflict nist noaes *) 
EVE DuUrGge s=JSUrGestiSt.pctr; 
Aneoe OULGeotaStaptr <penil DO 
BEGIN 
Slime biotepermrn= CUnGeCCLISTADtTr” .Axt, 
PRSeOSemuavi=ourGes -Caltiptr ); 
DiISPOSé(tvlupurge); 
CVS OULPGe so Purge II Stortr: 
EiWD3 





NewCourgeslist.ptr); 

pimp Catiatapth ~«rxe ¢= nil? 

Jew courgeslisteptr-.cair.ptr): 
aNOs : 


TPeGransSaecr = hil THaL 
BEGIN 
WKITELN Caudit, 
“Ail transactions are finisneda |! 
WRITELN (C°Al1 transactions are £inisned ! 
END} 
Poem rT COC Ne malin LOOP seses "VY" OT "nN". 7) 
READLN (ch); | . 
Eseekastoc (stoeprun, ch) 
END? : 
ReEwRLiTre (aata); 
erselect; 
CLUSE (data) 


. | 
qe AY 
=e 


ee 


ry a=; 6= 
o= 


END, (# program algouwtest *) 


CKREKE KK KK RE KEKE KEKE ER EKER ERK KARE RE KK E RE KKK KER RR KE KK EKER EX) 
(KKK KK ERK AK ARK EEE KEKE KKK ERK REAR RK EK EKER KEKE REE KE KEK KER EEE) 
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APPENUIX C 


DAMPLE SIAULATLOW CUTRUT 


the transaction file was ouilet 

tne data dictionary was cuilt 

tne data onject aataoase was built 

tne tv,cn environment was cuilt 

time delay constant enteread 3 3 
random seed value enterea ° | 
LocKing data obj 1 

locking data oodj 3 

LoeKxKing daita ool 2 

locking data ooj 4 

Creating a temp version for: 


ieee il 2 
mo conflict is detected at 2 
creating a temp version for: 

1 i121 3 
Momeoniklict ism@etecteaq at 3 
creating a temp version tors: 

13 i111 4 
Meomeonftliet is detected at 4 


marKk.temp.ver marking 3 

1 3 j 1 4 
release® iock £tor d.c,. 4 
locking data op] ~ 
mark.tempuver marking 3: 

1 2 1 i 2 
Creating a temp version for: 


1411 4 
conflict is detected at . 
COmist Prec rel at d.o. 4 
Come lict Aistory construct@d at 4 
tne value of "s" was set to 3 1 


mark.tempiver marking °; 
1 1 Z 1 3 
markKetempiver marking 
1 4 1 1 4 
release lock for d.o, 
release lock for d.0, 
locking data ooj 3 
Creating a temp version for: 
i Uosee Ce Sa me & 
no conflict is detected at 
release lock éor d.0. 


lJ 


®) 


ee) 


ae 
: " Stl Z a 
Shavers 


ay 
7 int 7 a 


. 








entering this aa in the lock queye 
\ 2 2 1 
cnecking deadlock for 4a: 
Loewe i 
conflict is aetected at | 
Gomer ct history constructed at 1 
creating a temp verston for: 
ieee 2 3 
conflict is detected at 3 
GOmot Prec rel at d.o, 3 
Gome.ict Nnistomy censtructed at 3 
the value of "S" was set to $ 1 
entering this aa in tne lock aueve 
1 4 lee 
cenecking deadlock for 4a _;: 
joeee i 2 
conflict is aqetected at 3 
Cent iict nmistiory constructed at 3 
locking data obj 4 
mark.otCemp.ver marking ° 
it i 1 i 1 
marx.temp.ver marking 3: 
it 3 1 Z 3 
release lock removed from lock queue ;: 
ieaeei 2 
moumpacCkKaen LS removing en"s tor rolloack 
Creating a temp version for: ; 


leet 2 3 
Goperitct is detected at 3 
const prec rél at d.o. 3 
Gomi rietc history constructed et 3 
Che Value ef "S"” was set to 3 2 


marketempiver marking ; 
H + i Z 3 

melease lock for d.o, 3 
release lock removed from leck queue 3: 

ie 2h 
Mo PacKoem 1S removing en"s tor rolloack 
creating a temp version for: ; 

mi22z.4 
Come lict #s detected at 4 
Comet pré@c rel at dO. 4 
GomeLliGemniistory constructed at - 
Creating a temp version for: 

tee 2k | 
Gontlice is detected at 1 
Geomst prec rel at d.o,. 1 
Gemelict Aistermy constructed at 1 
tne vaiue of "s" was set to 3 if 
lo¢kKing data obj 2 
markeatempuver marking : 
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1 2 2 i Z 
the value of "s" was set to 3 


2 


entering this aa in tne lock gueue 


1 3 { 3 
cnecKing deadlock ftor 438 ; 
poor 1 3 _ 
Gontiict is detectea at 1 


Comilict nistory constructed at 


loexing data ob} 3 


release lock removed from locx queue : 


i a 


Boltoack.cn 1s removing ch"s for rolloack 


mark.temp.ver marking : 
i | a 2 4 
Creating a teno version for: 
hm 3 f 3 ft 
Gentlict is™@etectea at j 
Gomse Prec rél at GeO. 


Gomenrce NIsStory constructed at 


Creating a temp version for; 
ieee 2 2 

contlict 1S detected at Z 

G@emst orec rel at d.o. 


Gomericte history constructed at 


the value of "s" was set to 3; 
release lock for d.o. 

Getect non sr aetected non sr 
eucie is $: 


tee 1 vias 1 2 
teow i it tan) i 
NS ee aes ae ae 


meiscore.sr is restoring sr 
entering gqeterminewrolloack 
PomyeinG back atomic action : 
1411 
Bemerodgek.co 1S removing cn''s 
rolling mack temp version 3 
iets i 
Eola mampack atomic action 3: 
fos i 1 | 
rollpacxucn is removing cn"s 
rolling back temp version § 
image i (i 
rolling pacx atomic action ;: 
lee 1 2 
Femspackocnhn is removing ch"s 
rolling back temp version : 
Teer 2 
TommebmG back atomic action 3: 
ts a ; 
rollbackKuch is removing chn"s 


sg (eG 


LOT 


LOe 


ye) 


roliback 


rol soack 


rolloack 


rolloack 





attempt to rolbacK an aa,tv that 
| 1 2 2 4 | 

rolling back atomic action 3: 

es ob 2 
molwoaGck.ci? 1S removing cn"s tor 
moira HacK temo version ; 

wes l 2 
release lock for d.0. 1 
Boming BacK atomic action : 

so i 3 , 
Fompack.ch is removing ch"s for 
POOLING back temo version : 

Cc | 
locking data ob} + 
the value of "s" was set to 3 1 
Creating a temp version for: 

114i 1 4 
Momcontlict is detected at 4 


was “mot there 


rolloackx 


rolipacx 


marKkentemp.ver markin : 


A 2 


i 1 + 


markoctempuver marking ;: 


1 1 


1 2 2 


release lock for d.0o, 4 
locking data opj 4 


entering tnis @a in tne lock queue 
1 3 \ i 
cnecking deaalock for aa: 
foe l i 
Conflict is acetected at 4 
Cemeule. Nastory cOonstructec at 4 
entering tnis aa in the lock queue 
i - i 2 
Smecking deaeloex for aa $ 
me: bee 2 
conflict is aetected at 3 
Gemewec mistory Constructed at 3 
Creating a temp version fors 
eee) 2 4S 
Conflict is aetecteada act 3 
Gorot prec r'él at d.o. 3 
ComziLeCtewnlistory constructed at 3 
Creating a temp version for: 
112 2 4 
Gomtelice is detected iat + 
Gumse Omecerel at 4.0. 4 
Conriicte hnestory constructed act 4 
release lock £0Fr d.Oe 2 
tne Value of "S" was set to 3 } 
entering this aa in the lock queue 
i 2 2 Z 
ecnecking deadlock for aa °: 


r92 








ee 2 2 
Soneiict is detected at 4 
S@psw ict history constructed at + 
detect non sr detected non sr. 
eyewe is : 
mm tf ft 61th 
TOs ls Ss ae ae 
i~weoe bet ii. 2 2 
Mesccressr is restoring sr 
entering determineurollback 
detect non sr detected non sr 
Gycle is ;: 
IS Cae See Za 
mee | 1] ie 
Mowing pacK atomic action : 
ee 2 | 2 
POLL eackocn LS FeMoving ¢cn"s tor rollivoack 
rollbackiwaa iS removing aa from lock a $ 
1 a2 2 
MmomelaedekKoch is removing en"s tor rollback 
attempt to rolback an aa,tyv that was not there 
cree 2 (os tn 
BPorewnd Gack "atomic action ? 
ms fd 
ROlmweae«.cn is removing eh"s for rollpack 
rollback.aa is removing aa from Leek a ? 
1 3 i 1 
Golwmeac<c ch is removing chn"s for rollnack 
attempt to rolpack an 4aa,tv that was not there 
i 3 i iE + . 
pommmeinaepoack atomic action 3: 
et ae | | 
Pabmeackocn is removing cn"s for rollback 
rolling back temp version ; 
tee 2 (1 
Polling Deer atomic action 3 
oS Ob ae | 
Bopeoeecnuc tr £5 removing cn™s for rolloecKk 
rolling pack temp version 3; 
0 | 
Pomaha OCack atomic acticn : 
1S ae 
rolilpack.ocn is removing cn"s for rollback 
rolling pack temp version : 
Cee 
locking data opj 1 
markeatemowver marking : 
1 i ? 2 4 
the value of "Ss" was set to ;: 1 
entering tnis aa in tne lock queue 
1 1 1 : 


RR 


2 
i 
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eneecking ageadlock £Or aan? 


et Lok 
no conflict is detected at 1 
release lock for d.o, 4 


locking data opj + 
mMark.tenp.ver marking $: 
i 2 1 2 3 
release lock removed from lock Gueue : 
ie t 2 
meorleacckKocem 1S. removing cn"s for rollnpack 
Creating a teme version for: 


fea 1 i 4 
GComrlict is detected at + 
Const prec rel at a.o. 4 
Somarict nastery constructed at 4 
Creating a temo version for: 

ieee. 2 3 
Gomelict is detecteq at 3 
Gomse  orec rel at d.o. 3 
Gomenver NLStory constructed at 3 
the value of "Ss" “Sas set to 3 Z 
Creating a temp version for: 

ees 20) 
no contlict is detected at 1 


mMarkK.atemp.ver marking $ 
1 4 \ 2 3 
release lock for d.0. 3 
detect non sr setected non sr 
Gyeve is 3; 
ieee + CULL C2 
ie i 2.) 4.1 
1 2 ee See ee Game 
Pestorme-s> 15 8restering sr 
entering determinerrolloack 
Molt ungesaack atomic action 3: 
ioe 1 2 
PO eacc-coeLs removing cn"s for rolloack 
rolling pacx temp version 3 
i 7 
HOmviIngwoack ®tomic action 3: 
ac 
rollicackoch is removing ch"s for rollbacx 
rolling back temp version :3 
| ee Gy aes" 
PoumlinGeceack acomic action 3 
141 <4 | 
Remmeeckooen iS removing cn“s for rollback 
attemet to rolpack an aa,tv that was not tnere 
es ee? a 
rolling back atomic action ; 
aol 2 2 


fh BH NG 
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Hose oacKkech 1s removing ch"s for rollback 
DOulmeg back Ulerp version 3: 
| ae ae 
release lock for 4.0, w" 
mormeiunGa Gack atomic action s$ 
es, jh } 
hoempsroack.cn "15S removing ch"s for rollback 
attempt to rolback an aa,tv that was not there 
\ 3 1 it 4 . 
locking data onj 3 
mMarkK.temp.ver marking 3 
1 2 dZ i 1 
locKing data opj 4 
entering this aa in the lock queyve 
1 4 1 We 
Cnecking deaalock for aa _: 


Se: ae Gane 
Momconflict is detected at 3 
Creating a temp version for: 

ae ee! 
conflict is detected at 4 
Ceog@at apréc rel at 4.0. + 
Gomediet history constructed at - 
Ghe value ef "s" was set to ; 1 


Mmark.temp.ver marking 3 
Z 3 1 i q 
release lock for q.o. 4 
entering this aa in tne lock gqueue 
sh 1 Zz 1 
checking deaalock for aa $3 
ie 2 Oe 
eomtlict rs detected at 3 
Comclvet neestory constructed at 3 
release lock removed from lock queue : 
eke 1 
Pomeepbackx.cn fs removing ch"s for rolloacx 
Creating a teme version for: 
i la 
noe eemtlice is detectea at 
Creating 2 temp version for: 
{i 1 aed 
COmmeiict is detected at 1 
const crec rel at d.o-e 1 
GCOMeLleumaastory constructed at 1 
entering this aa in the lock queve 
l 3 EP 
Cnecking d@aaclock for aa 3 
flueed elee2 ; 
Ceomélicte fsmdetected at 3 
Commriceenastery constructed at 3 
tne value of "Ss" was set to 3 0 


dal 


ee 





mark.temoiver marking : 
1 2 1 Z 3 
release lock removed from lock queue 3: 
1 oe er 
Frommodex«.ch is removing cn"s for roliback 
Creating a temp version for: 


7d 1 2 3 
Conflict is dqetected at 3 
Cows. "PT@Cc PRL at de Ox 3 
Somerict ALStory constructed at 3 
tne value of "S" was set to 3 1: 


mark.temp.ver marking ;: 
1 4 l 2 3 
release lock removed from lock ayeue : 
met 2 (i 
BeroocKochn is) removing cn"s for rollback 
yeeking deta obj 4 ; 
Sfeacing 4a temp version for: 


ene | 3 
Gontiict is detectede at 3 
Genst ‘erec rel at d.o. S 
SComitlicmenistory constructed at 3 
UVrre=value of "S”" was set to °& 2 
creating a temp version for: 

tee. 2 2 4 
Seqmellet is detected at 7 
Gemsc Prec rei at dy.o0. 4 
Semciticte nistoryvy constructed at i 
tne value of "5s" was set to 3 Z 


markKoctemo.ver markina 3 
1 1 i i 1 
metease lock f£0r 4.0. l 
Marxetemowver marking ; 
1 l 2 i 3 
POcKING data ooj 2 
marxatemo.wver marking 3; 
i! 2 2 2 4 
release lock removec from lock queue 3 
ies: le 
momerwaGneGn 1S removing chn"s tor rollback 
release lock for d.o. 4 
detect non sr detected non sr 
cycle 1s 3: 


lo 74 ene ie: ee ee 
1mm i 1222 
owe 2 Ss 1 ft 


restoreasr is restcring sr 
entering determinesrollback 
TONG beck atomic action : 
{ ¢1 2 
Romepeaceeneh 1S removing chs for rolioack 
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FO1wIng baeecK temp version 3: 
14 1 2 
Pemeeng OoacCK atomic action :; 
1 aml 2 
Porrcackacm 1s removinc ch"s for rollback 
rolling pack tempo version ;: | 
es ae 
momilagG back atomic action : 
ito ft 
momrseeck.cm is removing cn"s for rollback 
attempt to rolback an @a,tyv that was not tnere 
1 1 2 1 a 
creating a temp version for: 


ete lL: 2 
conflict is detected at 2 
Gemst prec rel at a.o. Zz 
SOUGLLCe MIStLOry constructed at 2 
tne value of "s" was set to 3: 1 
Creating a temp version for: 

m3 12 3 
Pemceonrflict Ms dete@ctec at 3 


entering this aa in tne lock queue 
1 - 1 2 
cnecking d@aalock for aa: 
je a 
Gemrtiict is aetectea at 3 
Gomerlee History ¢eonstructed at 3 
detect non sr detected non sr 
cycle is 3; 
feo l@2 44 1 °2 
oa ot. 3) ld 
rectome.sr is restoring sr 
entering determinercrolloack 
Porting Sack “atCoinric action ; 
feeds 1) 2 
Mmomeoae wee 1s removing cn"s for rolloacKk 
rollback.aa is removing aa from lock gq: 
1 4 1 2 
bompeeaecmecn 1S removing eh"sS EOor rollback 
attempt to rollback an aa,tv that was not there 
1 4 1 2 3 ; ; 
release lock for d.o. 3 
POoM@rungd faek atomic action ;: 
131 2 
rOlbibaeksen is removing ch"s for rollback 
rolling back temp version ; 
leet 2 
locking data opj S 
Creating a tamp version for: 
141 2 3 
no conflict is detectea at 3 


Lo, 





mark.temp.ver marking 
if 4 i 2 3 
Marketemowver marking 
1 a 1 2 2 
release lock for d.o, 2 
Bemeease lock for d.0. : 


Committing transaction ===> i + 
bedeipack.¢nh is removing cn"“s for commit 
tne value cf "s" was set te 3 1 
release lock tor d.o. 4 
BPomucpack—-cn is removing ch"s for commit 
Pum alee OF | Se was set to : 9) 
release lock tor d.o,. 3 


locking aata onoj 3 

entering this aa in the locx queue 
1 3 1 2 

cnecking deadlock for aa ;: 


* 3 1 2 
me centlict is detected at 5 
Creating a temo version for: 

fee 2 8 
Me contlict is detected at 3 


entering this aa in tne lock Gueue 
i i Z i 
enecking deaalock for @a: 
be ae 
Goprwrct is detected at 3 
Gomtiumame History constructed et 
marketemp.ver marking 3 
{ zZ 1 2 3 
release lock removed from lock queue ; 
Oe ae ee 
merwoede<]=cn 15 removing cnh"s £or rollback 
Creating a temp version for: 


ies 4. 2, 3 
GCenrlilcte Ls detected at is 
Comist prec rel 3st d.o. 5 
Commerc ee history constructed at 
tne value of "s" was set to 1 


Markutempiver Markilng 3 
1 a : 2 3 
release lock removed from lock queue : 
pS ee 
rolleackecn is removing chn"s for rollback 
locking data obj 1 
Creating a temp version £ors: 


tet 2 3 
conflict is detected at 3 
Gomet orec rel at d.o. 3 
Sometlrce fNiatory CONStructéd at 
tne value of "Ss" was set to ; 2 


eke, 





Great. name tembm version for: 


a Oe ae 
Gomrrice LS aetected at il 
Gomst oOrec rel at d.c, 1 
Semer sce Mistory constructed at 1 
tne value of "S" was set to 3 i 


Markatempuver markings 3 

1 3 | 3 i 
release lock for d.o. 1 
detect non sr aetected ron sr 
cycle is ;§ 


12 Al Ce: Gees er ae 
ieee 2 tf lt it 
mime of 2 2 2 


mencoreasr is Kestering sr 
entering determinercrollbdack 
Pelling pack atomic action : 
we). 1 
mero ackecn 2s removing cn"s for rollback 
roliing back temp version ; 
VS ae a 
Perrine cack atomic action : 
{221 
mopeeracneCcCh 1s TeMOVIAG cn"s for rollback 
rolling back temp version : 
1221 
BomeEngd Daex atomic action : 
feel 2 
Nel peek S@en is removing cn"s f£or rollvack 
roliing back temp version : | 
1b a a ips 
Bowring Cack atomic action : 
f Bei 3 
memmeoaGcs=Gi ils Gemoving cn"“s for rollback 
ateemoc to rolback an aa,tv tnat was not there 
1 3 1 3 1 ; 
FomuiiGeeeck atomic action 3; 
tec. 2 
FPowvedexocenmis removing cn*s tor rolloacKx 
rolling back temp version ;} 
De. 2 
Pocking,ceata oo} 1 
MmarTK.Cempiver marking ; 
1 i 2 i 3 
entering this aa in the lock queue 
, 3 1 3 
cnecking aeadalock for aa 3: 


nes lll 
no com@ilict is detectec at 1 
release lock f£0r d.O0, 3 


creating a temp version for: 


esl, 





feat, 1 f 
MOmGoOneELict@is Beecteda at 2 
markKotemop.ver marking ;: 
1 1 1 i ? 
locxing data obj 4 
Telease lock removed from lock queue ; 
is) 1S 
bpemereaeckecn 15 removing ch"s for rollbacKx 
creating a temp version for: 
Vole aS Ea | 
conflict is aetected at 1 
COmsoe Dree rel at d.c,. 1 
Gommr1et History constructed at 1 
entering tnis a@a in the lock queue 
1 2 2 1 
enecKing deadlock for aa 3 
tH 22 i 
conflict is aetected at i 
Ccmellect hrstory constructed at i 
detect non sr detected non sr 
eve re “Ps : 
eel 2 ey 3 (Ul 
eset oe t 2 2.) 
restoreisr is restoring sr 
entering detrermnminewrolloack 
Romi ng back atomic action : 
ho2 2 1 
Mmommeoaekn.chn. LS removing cn"sS for roliback 
rolloaseck.aa is removing aa from lock a: 
1 7 2 1 
bomerodcs= ctl ls removing cn"s tor rollback 
attempt to rolback an 4a,tv that was not tnere 
m OP 2 1-1 — 
nmevease Wock for d.o. } 
rolling back atomic action : 
ee ee 
Mopeveackeci 1S Yermoving cn*s for rollnacx 
rolling pack temp version : j 
eon lS 
PeigneeG@osr is restoring sr 
HomwinGc back a2@omic action : 
ioe 2a 
BO. edexs-cmeis Femoving en"s for rollback 
attempt to rolback an aa,tv that was not tnere 
gl a ; 
horlLingsyoeex atomic action ;: 
ioe. 6S 
Rormoadescach ts removing ch”"s for rollback 
attempt to rolpack an aa,tv tnat was not tnere 
a i hm hUC : 
locking data obj i 
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Smeeacing a temp version for: 
VS I 5m ae 
Someiice 1s cetected st 1 
Gonmsct Crec rel at a.o. if 
Somerict nisttory’ constructed at 1 
Gmeeting a témp version for: 
Vote ee 4 
€omtlict is detected at 4 
comet orec r@#i at d.o. 4 
Gometlict history constructed at + 
tne value of "S" was set to : 
tne value of "Ss" was set to 3 l 
locking data opj 2 
entering tnis aa in tne lock queue 
1 3 1 3 
cnecking déadlocKx for aa 3 
I jek 3 
Gemrelict is detectea at 1 
Ceme2.ict Nisitvery constructed at il 
markKawtenp.ver marking 3; 
l 1 Zz 2 4 . 
release lock £07 a.o, 4 
TMarkKetempuver marking 3 
\ 2 2 1 1 
release lock removea trom lock aueue 3: 
lees a a 
meme rackachn is Fremeving cn"s for rollback 
creating a temp version for: ; 


Se ae a 
conflict is setected at 1 
Gomet prec rel at a.0o. [ 
Gomemlctcemistory constructed at h 
the value of "s" was set to 3 Zz 


marketempever marking ;: 
1 3 1 3 i 
creating a teme versicn for: 
ime. t 22 
Gomerict is Getected at 2 
Gems<t prec Fel at dsade 2 
Gomi vet APStoOry constructed at Z 
release lock for d.0. l 
@@tect non sr detected non sr 
Cyeie is? 
Na Ee ae 21 
fee ae” ery 
restore.sr is restoring sr 
entering dcererminecrolloack 
RomerinG seck watomic action 3 
1 @e2-i : 
Popecaoexn—_cm is removing cn"s £or rollback 
Foummeng back temp version ; 


2 
i 
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22 1 
EPOlmmeng DacK atomic action : 
ie 1 
meoeeuomcKaeci) £5 removing cn"s for rollback 
rolling pack temp version : iiase 
coi 1 ft 
release lock for d.o,. 2 
Forling back atomic action: 
iy 3a ae 4 ' 
more aACK.Gn LS removing ¢cn"s for rollback 
rolling vack temp version : 
ae ae 
Women ack atomic action : 
SS ae | : 
Pomperaeck.en is Femoving ¢ch"s for rollbacx 
attemcot to rolback an aa,tv that was not tnere 
aes 6htflCU ee 
Poexing data op} 1 
Creating a temp version for: 
| ee ae | 
mo contlice is detected at i 
MarkK.temp.ver marking $ 
1 2 2 | il 
@ncering this aa im the lock gueue 
1 3 1 3 
cnecking deadlock tor aa 3 
131383 
conflict is detected at at 
Gemcumce AIStomyY constructed at j 
release lock removed férom lock aueue ;: 
ie me 3 
meomreaekecn 1S Femevipg cn"s for rolibacx 
Weekwing dati onj 4 ; 
creating a teme version for: 
PsP 13 1 
G@emerict is detected at | 
Comst oOrec rel at d.o- 1 
GoicwencamnmiactOnyvecoenstructed at { 
ene Value of “S"mwas set Eo 5& Q 
Creating a temp version £or: 
172 2.2 
Gonclictyis detected at 4 
Genesee pree rel at 4.0. 4 
GomerrCeeniSeory constructed at 4 
mark.ctemp.ver marking 3 
i! 3 1 3 1 
release lock for d,0O. 1 
the vaditvie of "S" was set to 3 2 
detect non sr aetecteac non sr 
eycte is 3; 
ie 2 gel 2g 2 
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eee 2 31 2 
meoemi ss 2 ft 2 2 
memeEoreoasr is restoring sr 
entering daqeterminecrolloack 
homing Dack atomic actilen : 
i> 1 2 
mereepackK.em 1S Femoving ch"s for rollback 
rolling back temp version : 
mos 1 2 
rolling pack atomic action : 
i 7 ae 
mempeoeckKach Ls femoving ch"s for rollback 
rolling odack temp version ; , 
im2z 1 @ 
howriag Sack atomic action : 
ioe. 1 3 
momteadGkacn is removing ¢cn"s tor rolloack 
rolling back temp version : 
eon. 3 
Forming back atomic action :3 
| re 
momencaececn is remeving cn"s for rolipack 
attemet to rolback an a@a,tv that was not there 
uf 1 Z 1 3 
rolling back atomic action ;: 
feeds 2 2 
monmeeacKkocn ls fremoving cn™s for rollback 
rolling pack temp version ;3 
ie 22 
release lock ror d.o,. ts 
Ror no CaCx atomic action ; 
ie 2 2 2 
BomepeacksG1 15 Penoving ch"s for rollback 
attemet to rolback an 4aa,tv tnat was not tnere 
me 2 Z 2 4 | 
locking data obj 3 
creating a temp version for: 
lees t 23 
MOmeCONEl cr 15 detected at 3 
mark.tCemo.ver marking & 
1 5 1 iz 3 
release lock for d.0. 3 
locking date opj “ 
lhoexing data obj 3 
NGermi ng data ooj 1 
creating a temp version for: 
ees 3 
Conpmaiet is detected at 1 
Comisa Pree fel at d.0. 1 
Comeimctenistory constructed at 1 
the value of "Ss" was set to °; 0 


FAB) 5) 





MetecetenoowVer Marking ¢$ 
l 3 1 3 i 
reteese LOCK £Or do. ul 
Senmeering this aa in the lock queue 
1 Z : 2 
enecking deadlock tor 4a 3 
eee A 
Gomellct is setected, at 3 
Someolict@mistory constructed at 3 
detect non sr detected non sr 
Gyvcie is 3 
Oe lS ies Oe Ue Ga 
ort 2 ol 2 Ly 2 
restoreusr is restoring sr 
entering determine.rrollbacx 
bor nG Sack atomle action $3; 
ie 2 
Pomppeachech 2S removing ch"s for rollback 
rolloack.aa is removing aa from lock a: 
i 2 1 2 
Boro ackhocm 15 removine ch"s for rollback 
attempt to rolback an aa,tv that was not tnere 
SL) SE a a 
relling pack atomic action 3: 
5 a 
PomeoackKoen LS removing cn"s 
Tolling back temp version °: 
ipes 2 2 
POeenG Dack atomic action 3 
is 17 3 
BPomeroeckocm 1S removing cn"s for rollback 
rolling back temp version ; 


rH 
oO 
ty 


rolibacKx 


LY 
GreaeLtngee, cems version fors 
ime 2.1 3 
MomCoOMe set. ts detected at 3 
creating a temp version for: 
een 2 4 
conflict is detected at 4 
const prec rel at 4.0, 4 
Somenlecuceniseory constructed at 4 


locking data obj 1 
entering this aa in the lock queue 
i 3 1 zZ 
ecnecking aeadlocxk for a4 3 
eS ol 2 
Conflict is aetected at 3 
Gomriretenlstory constructed at 3 
tne vaiue of "s" was set to 5; 1 
markatemp.ver marking : 
1 1 2 1 3 


204 





release lock removed from lock queue ;: 
esol 2 

howroeckKoen is removing ch"s for rollback 

Creating a temp version for: : 


iol 2 3 
Contlict 18 aetected at 3 
Gomst Prec rel at a.eo. 3 
G@@mtlice Aistory constructed at 3 
tne value of "Ss" was set to 3 4 


Mark.tempiver marking 3 
1 3 i 2 3 
release lock for d,.o. 3 
MarKet@mp.ver marking : 
i 2 2 2 4 
locking data obj 3 
Creating a temo version tor: 
Le Be ne eae 
conflict is aetected at 1 
Soman Prec rel at d.o. 1 
Somrtres MIStory constructed at 1 
release lcck for 4.0. _ 
entering this aa in the lock queue 
1 3 1 3 
cnecking da@¢adlock for aa °%3: 
Se ae | | 
GCeomeicct 1s aqetected at 1 
Somer lece Nistory constructed at 1 
tne value of “"s" was set fo 3 0 
Marketemo.ver marking : 
1 { 1 | H 
BOekRiaG data ob] 4 
creating a temp version for: 
Pel 2 (ee 
Gomerret fs detected at 4 
COnst prec rel at do. 4 
Gomer tere mr seory constructed at a 
tne value of "s" was set to 3: 2 
creating a temp version for: 
Ie 2wle 2 3 
contlict is detected at 3 
GO@msec prec rel at d.o. 3 
Goel aetcmmiscory constructed at 3 
markKetemp.ver marking $ 
l 4 2 Z * 
release lock removed trom lock queue ° 
ae 
Ropero acmechets removing ch"s for rolloack 
creating a temp version for: . 


IS TS) 1s a 
Cope etmlo sceetectea at 1 
const grec rel at d.O. 1 


Z0e 





Gemclerce Nistory constructed at \ 
the value of "S" was set to 3 
tne value of "s" was set to : 
mark.temouver marking : 

ih 3 1 3 i 
hemease LOCK for d.o. l 
Getect non sr detected non sr 
cycle is $3; 


J e& 


jee) dk) SL 2 
Meee 2 tad li 
pie eRe 2 2. 2 


Pescore.sr is restoring sr 
entering dererminewrollpack 
rolling ‘pack atomic action : 
ee 1 1 
BomeveacseaGie ws Femoving ch"s tor reollbsck 
rolling pack tempo version : 
er LC 
Mertping back atomic action : 
m 222i 
meme oackoch is fPemoving cn"s tor rollback 
rolling pack temp version : 
ee 2 
rolling neck atomic action : 
Is 1 3 : 
BoeewoackKoGm is removing en"s tor rollsécKk 
attemet to rolback an aa,tv tnat was not tnere 
1 3 1 3 Ho Fa 
BomlonG pack atomic action : 
jee. 2.2 . 
Boeck oecmm se removing ¢h"s for rolibeacK 
rolling back temp version : 
ee. 2 2 
release lock for q@.o. 4 
homer nagecack atomic action : 
gh aed: 
EQ eoacrecmmis FeNOVING cn*s £oY rollback 
attempt to rolbacx an aa,tv that was not there 
1 No 7.) | 
locking data obj 1 
marKkowCemp.ver marking ; 
i 2 1 2 z| 
release lock for d.o. 3 
entering this aa in tne lock queue 
u 3 i 3 
cnecking deadlock for aa $ 


131 3 
Womecenel. ct is cetected at 1 
Creating a teme version for: 

ioe ol lt 
MoT comt rice 1S d&tected at 1 
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Pause cemp.ver marking : 
1 1 1 1 : 
release lock removed from lock queue ; 
tos {i 3 
Poomeeacmocn £5 TeMoyvying chs for rollback 
Conflict is detectea at { 
COms. EEec rel at Ga.0, 1 
creating a temp version fors 
ors Sl 
Somelict mistory constructed at 
locking data ob} “+ 
the value of "s" was set to 
mark etemp.ver marking : 

i 3 2 3 i 
release lock for d.o. 1 
locking aata ob} 1 
creating 4& temo version for: 


ee 
-~ 


Ss eer ae 
conflict is detected at 4 
Gomsece prec rel at a.o. 4 


Commer lect History constructed at 
VoeRingd data odj Z 
the value of "S" was set to $3 } 
Marx.tempaver marking § 
i 1 2 2 4 

Creating a temp version for: 

er ie ae 
conflict is detected at 2 
Gonau Erec rel at d.o. 2 
Gomera ccoehiastory constructed at 
Bemease lock £0r 4.0. & 
the value of "S" was set to 3 i 
Markotemp.over marking 3} 

1 l ie Zz Z 

detect non sr detected non sr 
Sverre 15 ; 

7 SS as ie 

tiie lee 2 
Beacore®.Sr 1S restoring sr 
entering determinewrolloack 
Fouling Dack atomic action i 

Pole, 2 
Roiodckeciess removing ¢ch"s for Follback 
rolling back temp version 3 

Wrz: ce 
Tol mG Dacmoeatomic action : 

es 

Ponmoackachmers sFenoving cn”’s for rolltack 
rolling back temo version 3 

TS ete 

Fowuvingd sack atomic action : 
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il) 2) 
Porerpacswech 25 Femeving cn“s for rolisack 
rolling back temp version 3 
jt 3a Gav: 
BOrmring OCackK atomic action 3: 
thes i 3 
Rowreack.cecn 15 removing cn"“s for rollback 
rolling back temp version : 
los), ars 
locking data opj 4 
Gmeating @ temo version fors 
ec 1 
conflict is detected at 1 
const prec rel at d.o, 1 
Gomparce Nistory Constructed at 
release lock ror d.o. 2 
Gre valwe of "Ss" was set to ;: 4 
entering tnis aa in tne lock queye 
1 5 1 i 
cnecking deadlock for aa 3 


ms 1 41 
Mo Comelict 1S detected at ~ 
Gaeacing @ temb version tor: 
11224 
MomGconritctmls detected at + 


Mark.Cemo.ver marking °: 

1 2 2 I i 
release lock for d.0o, i 
mark.cemecover marking : 

1 1 Zz 2 4 
release lock removed from lock queue 3 

la ee 1 

Forepacsoches removing cnh"s for rollback 
creating a temp version for: 


yore i i 4 
GOmewlce is aqetected at + 
Senst prec mel at d.c. 4 


Swe ticcmmustory cConstructéa at 
getrecce non sr detected non sr 
Gycwe is : 

feetuc eel 2 1 2 

ec iee tay 1 jhey2 
restmoreosr is restoring sr 
entering determinewrolloack 
rolling bvack atomic action 3: 

Lg te ae” 
rollbackach is removing cn"s for rollback 
rolling back temo version ; 

111 2 
rolving back atomic action ; 

lead ole 


20% 





Mmepegdackacn 15 Lemeving ch"s for rollback 
rolling back temp version 3 

Le 14 ia | 
rolling bvack atomic action :3 

a ee 
rollback.cn is removing cn"s for rollback 
rolling sack temp version : ; 


eo | 2 
locking data ono] 2 
Pieevabhue Of "Su Was Set to : 1 


markatempaver marking : 
1 3 i 1 * 
release lock for d.o, 4 
locking data ooj 3 
creating a temp version for: 


Lo US es ae 
Gomelict is detected at 3 
const prec rel at da.d- 3 
Comet .cte Mistery constructea at 3 
the value of “s" was set to 3. 1 
Creating a temp version for: 

Ns eee 
MromGomcivet is detected at 2 


entering this aa in tne lock queve 
4 2 i 1 
checking aeaalock for aa 3: 
oe ae ae . 
conflict is detected at 2 
CeopoeltlecemniStory Constructed at 2 
mark.tempiver marking 3; 
l 3 i 2 3 
release lock tor d.o. 3 
locking data obj 1 
creating a temp version for: 
ihe 2 i alee nae | 
Conflict is detected at i 
const prec reli af da.0- 1 
Comenbice mestory constructed), at l 
locking data ooj 4 
thie wv4aiue of "S" “WwaS set tO ; 2 
Markatempaver marking : 
i 1 | 2 2 
mark.wtemp.ver marking ; 
1 3 1 3 1 
release lock for d.0. i 
release lock removec from lock queue 3; 
er ae ae 
POmroackechne.s removing en"s tor rollback 
transaction 1 1 is t(r) from glooalusr 
Committing transaction <=s== 1 l 
Pomroackecn 15 fFemoving ch"s for commit 
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the value of "S" was set to 
pemedse Lock for d.o, 
GeuwpackKicen is removing ch"s 
tne value ef "s" was set to 
release lock tor d,o, 
relvoackKicn is removing ¢cn"s 
tne Value of "s" was set to 
release lock for ada.o. 
Pewmepacsm.en ¢S removing chs 
Emme Value of “s" Wes set to 
release locx for d.o, 
Crmating a temp vérsion ror: 
lee. «62 eG 
conflict is detected at 
Gomsct Pr@c rel at a.oc. 


1 
£Or 
Z 
con 


2 
BOr 


4 


CoyerteGe ALStTOry Constructed at 


Creating a temp version for: 
Lag Lae ie 

no contlict is detected at 
tne value of "s" was set fo 
markKe_temeiver marking : 

af 2 1 i Z 
marketempiver merking °$ 

1 2 Z 2 + 
release lock f0r d.o, 


qadetect non sr detected non sr 


cycle is $¢ 
E70? ae ee 
mesa tht 2:2 2 
GBeaseoreear 1S restoring sr 
entering determinewrollpack 
poOlmmenagmeack atOonic action $§ 
2 2) 2 
Pow eaeweocp 15 removing cn"s 
Pei nageoeacs temp version ; 
1 2.2 2 
Homma eadck atomic action : 
eS a ee | 
memeoaeckeaGcisLs removing cn"s 
Felling sack temp version °; 
sl heme ae | 
Pomlling Gack atomic action ¢ 
ious ¢ ; 
GOn Oaeex.cn is removing cn"s 
rolling pack temp version : 
Peoria 62 
Powmerrag back witomic action : 
cone Eee 
Bopmoack=cn 1S removing cn"s 
rolling paex temp version $ 
oo «3S 


SONG 


[OL 


0 


commit 
Q 


commit 
©] 


COTMit 
') 


Tolipacx 


rolisack 


rollback 


rolloacKx 





MSeExing data ov; ? 

release lock for d.o, 2 

locking data opj 3 

entering this aa in the lock queue 
i 3 i 1 

checking deadlock for aa: 


ms. 1 i 
no conflict is detected at 2 
Creating a temp version for: 
iol 2 3 
no conflict is detectea at 3 
creating a temp versicn £or: 
ie 2 a2 2. 4 
mo conflict is detectea at 4 


MarKotempiver marking 3; 
i 2 1 2 3 
M@rKotemp.ver marking 3: 
: 2 2 2 4 
release lock for d.o, 3 
release lock removed from lock queue ;: 
os | ae | 
momeeoaecnxaeeGt is removing cn's for rollpeck 
creating a temp version for: 


tees, i i 8 
Gomnelict iMmedetected at 4 
Comst Orec Fel at d.o,. 4 
CGOmellcGe wmistory Constructed at 
the value of "S" was set to 3 1 
meemsacelomer 2 is t(r) from giocalcsr 
committing transaction =s=s l 2 
no Ode renGmls Semoving ch"s for commit 
Cree vavuewor.  S" was set to 3 Q 
release lock for d.0, 2 
rollback.ch is removing ch"s for commit 
tne value of "s" was set to 3: 0 
release lock for d.o, 3 
nROlueadeKeGmers removing ch"“s for commit 
the value of "Ss" was set to 3 Q 
release lock for d.0. 1 
MmommoacK=Gm 1s removing ch"s for commit 
tne value of "Ss" was set to 3 0 
release locx for d.o. 4 


MmarkK.tempuver marking 3 

il 3 : 1 4 
release lock for d.0O. 4 
locking data obj 3 
Creating a temp version for: 

owiehe. 3 

no conflict 1s detected at 3 
mark.wcempwver marking 3; 

i 3 1 Z 3 


| ‘ts ee Ws 
4 
rt 


i ih’ 





rekease lock for d.0.- 3 
lecking data op; 1 
creating a temp version for: 
ws 1 Sl 
momconflict is detectea at j 
mMark.ctempuver marking : 
1 3 1 3 ih 


release lock for d.0O, 1 
Geemscaction 1 3 is t(r) from alopalusr 
Gomareeing trensaction ==>s= 1 3 
Pomboackecen is mhemoving ch"s tor commit 
tne value of "Ss" was set to 3 0 
BeweaSe cen fOr ds 4 
rollback.ecn is removing ch"s for commit 
Coe value Of  S” was, SET CO : Q 
release lock tor d.O,. 3 
Torlpacee.cn lS Fremeving ch"s Lor cammit 
tne value of "™s" was set to 3 0 
release lock for d.o. 1 


All transactions are finished 3!!! 
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